home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 20.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 35 3a 30 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:45:05 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 70 | 72 69 6d 2f 69 74 69 6d |3/lisp/p|rim/itim|
|000000a0| 65 72 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |er.el.;;|; emacs |
|000000b0| 76 65 72 73 69 6f 6e 20 | 32 30 2e 33 20 22 56 61 |version |20.3 "Va|
|000000c0| 74 69 63 61 6e 20 43 69 | 74 79 22 20 58 45 6d 61 |tican Ci|ty" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)). (|
|000001e0| 65 72 72 6f 72 20 22 60 | 69 74 69 6d 65 72 2e 65 |error "`|itimer.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 28 70 72 6f 76 69 64 | 65 20 27 69 74 69 6d 65 |.(provid|e 'itime|
|00000260| 72 29 0a 23 40 33 39 20 | 56 65 72 73 69 6f 6e 20 |r).#@39 |Version |
|00000270| 6e 75 6d 62 65 72 20 6f | 66 20 74 68 65 20 69 74 |number o|f the it|
|00000280| 69 6d 65 72 20 70 61 63 | 6b 61 67 65 2e 1f 0a 28 |imer pac|kage...(|
|00000290| 64 65 66 76 61 72 20 69 | 74 69 6d 65 72 2d 76 65 |defvar i|timer-ve|
|000002a0| 72 73 69 6f 6e 20 22 31 | 2e 30 36 22 20 28 23 24 |rsion "1|.06" (#$|
|000002b0| 20 2e 20 36 31 36 29 29 | 0a 23 40 32 39 20 4c 69 | . 616))|.#@29 Li|
|000002c0| 73 74 20 6f 66 20 61 6c | 6c 20 61 63 74 69 76 65 |st of al|l active|
|000002d0| 20 69 74 69 6d 65 72 73 | 2e 1f 0a 28 64 65 66 76 | itimers|...(defv|
|000002e0| 61 72 20 69 74 69 6d 65 | 72 2d 6c 69 73 74 20 6e |ar itime|r-list n|
|000002f0| 69 6c 20 28 23 24 20 2e | 20 37 30 32 29 29 0a 23 |il (#$ .| 702)).#|
|00000300| 40 36 35 20 50 72 6f 63 | 65 73 73 20 74 68 61 74 |@65 Proc|ess that|
|00000310| 20 64 72 69 76 65 73 20 | 61 6c 6c 20 69 74 69 6d | drives |all itim|
|00000320| 65 72 73 2c 20 69 66 20 | 61 20 73 75 62 70 72 6f |ers, if |a subpro|
|00000330| 63 65 73 73 20 69 73 20 | 62 65 69 6e 67 20 75 73 |cess is |being us|
|00000340| 65 64 2e 1f 0a 28 64 65 | 66 76 61 72 20 69 74 69 |ed...(de|fvar iti|
|00000350| 6d 65 72 2d 70 72 6f 63 | 65 73 73 20 6e 69 6c 20 |mer-proc|ess nil |
|00000360| 28 23 24 20 2e 20 37 37 | 32 29 29 0a 23 40 31 30 |(#$ . 77|2)).#@10|
|00000370| 38 20 45 6d 61 63 73 20 | 69 6e 74 65 72 6e 61 6c |8 Emacs |internal|
|00000380| 20 74 69 6d 65 72 20 74 | 68 61 74 20 64 72 69 76 | timer t|hat driv|
|00000390| 65 73 20 74 68 65 20 69 | 74 69 6d 65 72 20 73 79 |es the i|timer sy|
|000003a0| 73 74 65 6d 2c 20 69 66 | 20 61 20 73 75 62 70 72 |stem, if| a subpr|
|000003b0| 6f 63 65 73 73 0a 69 73 | 20 6e 6f 74 20 62 65 69 |ocess.is| not bei|
|000003c0| 6e 67 20 75 73 65 64 20 | 74 6f 20 64 72 69 76 65 |ng used |to drive|
|000003d0| 20 74 68 65 20 73 79 73 | 74 65 6d 2e 1f 0a 28 64 | the sys|tem...(d|
|000003e0| 65 66 76 61 72 20 69 74 | 69 6d 65 72 2d 74 69 6d |efvar it|imer-tim|
|000003f0| 65 72 20 6e 69 6c 20 28 | 23 24 20 2e 20 38 38 32 |er nil (|#$ . 882|
|00000400| 29 29 0a 23 40 34 36 20 | 54 68 65 20 74 69 6d 65 |)).#@46 |The time|
|00000410| 20 74 68 65 20 74 69 6d | 65 72 20 64 72 69 76 65 | the tim|er drive|
|00000420| 72 20 66 75 6e 63 74 69 | 6f 6e 20 6c 61 73 74 20 |r functi|on last |
|00000430| 72 61 6e 2e 1f 0a 28 64 | 65 66 76 61 72 20 69 74 |ran...(d|efvar it|
|00000440| 69 6d 65 72 2d 74 69 6d | 65 72 2d 6c 61 73 74 2d |imer-tim|er-last-|
|00000450| 77 61 6b 65 75 70 20 6e | 69 6c 20 28 23 24 20 2e |wakeup n|il (#$ .|
|00000460| 20 31 30 33 32 29 29 0a | 23 40 31 34 32 20 49 6e | 1032)).|#@142 In|
|00000470| 74 65 72 76 61 6c 20 75 | 73 65 64 20 66 6f 72 20 |terval u|sed for |
|00000480| 73 63 68 65 64 75 6c 69 | 6e 67 20 61 6e 20 65 76 |scheduli|ng an ev|
|00000490| 65 6e 74 20 61 20 76 65 | 72 79 20 73 68 6f 72 74 |ent a ve|ry short|
|000004a0| 20 74 69 6d 65 20 69 6e | 20 74 68 65 20 66 75 74 | time in| the fut|
|000004b0| 75 72 65 2e 0a 55 73 65 | 64 20 69 6e 74 65 72 6e |ure..Use|d intern|
|000004c0| 61 6c 6c 79 20 74 6f 20 | 6d 61 6b 65 20 74 68 65 |ally to |make the|
|000004d0| 20 73 63 68 65 64 75 6c | 65 72 20 77 61 6b 65 20 | schedul|er wake |
|000004e0| 75 70 20 65 61 72 6c 79 | 2e 0a 55 6e 69 74 20 69 |up early|..Unit i|
|000004f0| 73 20 73 65 63 6f 6e 64 | 73 2e 1f 0a 28 64 65 66 |s second|s...(def|
|00000500| 76 61 72 20 69 74 69 6d | 65 72 2d 73 68 6f 72 74 |var itim|er-short|
|00000510| 2d 69 6e 74 65 72 76 61 | 6c 20 28 62 79 74 65 2d |-interva|l (byte-|
|00000520| 63 6f 64 65 20 22 c0 c1 | 21 ab 82 c2 87 c3 87 22 |code "..|!......"|
|00000530| 20 5b 66 65 61 74 75 72 | 65 70 20 6c 69 73 70 2d | [featur|ep lisp-|
|00000540| 66 6c 6f 61 74 2d 74 79 | 70 65 20 30 2e 30 30 31 |float-ty|pe 0.001|
|00000550| 20 31 5d 20 32 29 20 28 | 23 24 20 2e 20 31 31 33 | 1] 2) (|#$ . 113|
|00000560| 34 29 29 0a 23 40 38 31 | 20 49 74 69 6d 65 72 20 |4)).#@81| Itimer |
|00000570| 70 72 6f 63 65 73 73 20 | 77 69 6c 6c 20 77 61 6b |process |will wak|
|00000580| 65 75 70 20 74 6f 20 73 | 65 72 76 69 63 65 20 72 |eup to s|ervice r|
|00000590| 75 6e 6e 69 6e 67 20 69 | 74 69 6d 65 72 73 20 77 |unning i|timers w|
|000005a0| 69 74 68 69 6e 20 74 68 | 69 73 0a 6d 61 6e 79 20 |ithin th|is.many |
|000005b0| 73 65 63 6f 6e 64 73 2e | 1f 0a 28 64 65 66 76 61 |seconds.|..(defva|
|000005c0| 72 20 69 74 69 6d 65 72 | 2d 6e 65 78 74 2d 77 61 |r itimer|-next-wa|
|000005d0| 6b 65 75 70 20 69 74 69 | 6d 65 72 2d 73 68 6f 72 |keup iti|mer-shor|
|000005e0| 74 2d 69 6e 74 65 72 76 | 61 6c 20 28 23 24 20 2e |t-interv|al (#$ .|
|000005f0| 20 31 33 38 35 29 29 0a | 23 40 33 39 20 4b 65 79 | 1385)).|#@39 Key|
|00000600| 6d 61 70 20 75 73 65 64 | 20 77 68 65 6e 20 69 6e |map used| when in|
|00000610| 20 49 74 69 6d 65 72 20 | 45 64 69 74 20 6d 6f 64 | Itimer |Edit mod|
|00000620| 65 2e 1f 0a 28 64 65 66 | 76 61 72 20 69 74 69 6d |e...(def|var itim|
|00000630| 65 72 2d 65 64 69 74 2d | 6d 61 70 20 6e 69 6c 20 |er-edit-|map nil |
|00000640| 28 23 24 20 2e 20 31 35 | 33 33 29 29 0a 28 62 79 |(#$ . 15|33)).(by|
|00000650| 74 65 2d 63 6f 64 65 20 | 22 08 ac bf c1 20 10 c2 |te-code |".... ..|
|00000660| 08 c3 c4 23 88 c2 08 c5 | c6 23 88 c2 08 c7 c8 23 |...#....|.#.....#|
|00000670| 88 c2 08 c9 ca 23 88 c2 | 08 cb cc 23 88 c2 08 cd |.....#..|...#....|
|00000680| cc 23 88 c2 08 ce cf 23 | 88 c2 08 d0 d1 23 88 c2 |.#.....#|.....#..|
|00000690| 08 d2 d3 23 88 c2 08 d4 | d5 23 88 d6 d7 21 ac 83 |...#....|.#...!..|
|000006a0| d8 16 17 d7 0e 19 42 16 | 19 d6 da 21 ac 83 d8 16 |......B.|...!....|
|000006b0| 1a da 0e 19 42 16 19 d8 | 87 22 20 5b 69 74 69 6d |....B...|." [itim|
|000006c0| 65 72 2d 65 64 69 74 2d | 6d 61 70 20 6d 61 6b 65 |er-edit-|map make|
|000006d0| 2d 73 70 61 72 73 65 2d | 6b 65 79 6d 61 70 20 64 |-sparse-|keymap d|
|000006e0| 65 66 69 6e 65 2d 6b 65 | 79 20 22 73 22 20 69 74 |efine-ke|y "s" it|
|000006f0| 69 6d 65 72 2d 65 64 69 | 74 2d 73 65 74 2d 66 69 |imer-edi|t-set-fi|
|00000700| 65 6c 64 20 22 64 22 20 | 69 74 69 6d 65 72 2d 65 |eld "d" |itimer-e|
|00000710| 64 69 74 2d 64 65 6c 65 | 74 65 2d 69 74 69 6d 65 |dit-dele|te-itime|
|00000720| 72 20 22 71 22 20 69 74 | 69 6d 65 72 2d 65 64 69 |r "q" it|imer-edi|
|00000730| 74 2d 71 75 69 74 20 22 | 09 22 20 69 74 69 6d 65 |t-quit "|." itime|
|00000740| 72 2d 65 64 69 74 2d 6e | 65 78 74 2d 66 69 65 6c |r-edit-n|ext-fiel|
|00000750| 64 20 22 20 22 20 6e 65 | 78 74 2d 6c 69 6e 65 20 |d " " ne|xt-line |
|00000760| 22 6e 22 20 22 70 22 20 | 70 72 65 76 69 6f 75 73 |"n" "p" |previous|
|00000770| 2d 6c 69 6e 65 20 22 7f | 22 20 69 74 69 6d 65 72 |-line ".|" itimer|
|00000780| 2d 65 64 69 74 2d 70 72 | 65 76 69 6f 75 73 2d 66 |-edit-pr|evious-f|
|00000790| 69 65 6c 64 20 22 78 22 | 20 73 74 61 72 74 2d 69 |ield "x"| start-i|
|000007a0| 74 69 6d 65 72 20 22 3f | 22 20 69 74 69 6d 65 72 |timer "?|" itimer|
|000007b0| 2d 65 64 69 74 2d 68 65 | 6c 70 20 62 6f 75 6e 64 |-edit-he|lp bound|
|000007c0| 70 20 69 74 69 6d 65 72 | 2d 69 6e 73 69 64 65 2d |p itimer|-inside-|
|000007d0| 64 72 69 76 65 72 20 6e | 69 6c 20 63 75 72 72 65 |driver n|il curre|
|000007e0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 69 74 69 |nt-load-|list iti|
|000007f0| 6d 65 72 2d 65 64 69 74 | 2d 73 74 61 72 74 2d 6d |mer-edit|-start-m|
|00000800| 61 72 6b 65 72 5d 20 34 | 29 0a 28 64 65 66 61 6c |arker] 4|).(defal|
|00000810| 69 61 73 20 27 69 74 69 | 6d 65 72 2d 64 65 63 72 |ias 'iti|mer-decr|
|00000820| 65 6d 65 6e 74 20 27 28 | 6d 61 63 72 6f 20 2e 20 |ement '(|macro . |
|00000830| 23 5b 28 76 61 72 69 61 | 62 6c 65 29 20 22 c0 09 |#[(varia|ble) "..|
|00000840| c2 09 44 45 87 22 20 5b | 73 65 74 71 20 76 61 72 |..DE." [|setq var|
|00000850| 69 61 62 6c 65 20 31 2d | 5d 20 34 5d 29 29 0a 28 |iable 1-|] 4])).(|
|00000860| 64 65 66 61 6c 69 61 73 | 20 27 69 74 69 6d 65 72 |defalias| 'itimer|
|00000870| 2d 69 6e 63 72 65 6d 65 | 6e 74 20 27 28 6d 61 63 |-increme|nt '(mac|
|00000880| 72 6f 20 2e 20 23 5b 28 | 76 61 72 69 61 62 6c 65 |ro . #[(|variable|
|00000890| 29 20 22 c0 09 c2 09 44 | 45 87 22 20 5b 73 65 74 |) "....D|E." [set|
|000008a0| 71 20 76 61 72 69 61 62 | 6c 65 20 31 2b 5d 20 34 |q variab|le 1+] 4|
|000008b0| 5d 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |])).(def|alias 'i|
|000008c0| 74 69 6d 65 72 2d 73 69 | 67 6e 75 6d 20 27 28 6d |timer-si|gnum '(m|
|000008d0| 61 63 72 6f 20 2e 20 23 | 5b 28 6e 29 20 22 c0 c1 |acro . #|[(n) "..|
|000008e0| 5c 6e c3 45 c4 c0 c5 5c | 6e 44 c3 c6 46 46 87 22 |\n.E...\|nD..FF."|
|000008f0| 20 5b 69 66 20 3e 20 6e | 20 30 20 31 20 7a 65 72 | [if > n| 0 1 zer|
|00000900| 6f 70 20 2d 31 5d 20 37 | 5d 29 29 0a 23 40 38 30 |op -1] 7|])).#@80|
|00000910| 20 49 66 20 56 41 52 20 | 69 73 20 6e 6f 74 20 62 | If VAR |is not b|
|00000920| 6f 75 6e 64 20 74 6f 20 | 61 6e 20 69 74 69 6d 65 |ound to |an itime|
|00000930| 72 2c 20 73 69 67 6e 61 | 6c 20 77 72 6f 6e 67 2d |r, signa|l wrong-|
|00000940| 74 79 70 65 2d 61 72 67 | 75 6d 65 6e 74 2e 0a 54 |type-arg|ument..T|
|00000950| 68 69 73 20 69 73 20 61 | 20 6d 61 63 72 6f 2e 1f |his is a| macro..|
|00000960| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 68 65 63 |.(defali|as 'chec|
|00000970| 6b 2d 69 74 69 6d 65 72 | 20 27 28 6d 61 63 72 6f |k-itimer| '(macro|
|00000980| 20 2e 20 23 5b 28 76 61 | 72 29 20 22 c0 09 c2 c3 | . #[(va|r) "....|
|00000990| 09 44 09 c4 c5 c6 c7 09 | 45 45 46 45 87 22 20 5b |.D......|EEFE." [|
|000009a0| 73 65 74 71 20 76 61 72 | 20 69 66 20 69 74 69 6d |setq var| if itim|
|000009b0| 65 72 70 20 73 69 67 6e | 61 6c 20 27 77 72 6f 6e |erp sign|al 'wron|
|000009c0| 67 2d 74 79 70 65 2d 61 | 72 67 75 6d 65 6e 74 20 |g-type-a|rgument |
|000009d0| 6c 69 73 74 20 27 69 74 | 69 6d 65 72 70 5d 20 31 |list 'it|imerp] 1|
|000009e0| 30 20 28 23 24 20 2e 20 | 32 33 32 31 29 5d 29 29 |0 (#$ . |2321)]))|
|000009f0| 0a 23 40 31 37 38 20 49 | 66 20 56 41 52 20 69 73 |.#@178 I|f VAR is|
|00000a00| 20 6e 6f 74 20 62 6f 75 | 6e 64 20 74 6f 20 61 20 | not bou|nd to a |
|00000a10| 73 74 72 69 6e 67 2c 20 | 6c 6f 6f 6b 20 75 70 20 |string, |look up |
|00000a20| 74 68 65 20 69 74 69 6d | 65 72 20 74 68 61 74 20 |the itim|er that |
|00000a30| 69 74 20 6e 61 6d 65 73 | 20 61 6e 64 0a 62 69 6e |it names| and.bin|
|00000a40| 64 20 56 41 52 20 74 6f | 20 69 74 2e 20 20 4f 74 |d VAR to| it. Ot|
|00000a50| 68 65 72 77 69 73 65 20 | 69 66 20 56 41 52 20 69 |herwise |if VAR i|
|00000a60| 73 20 6e 6f 74 20 62 6f | 75 6e 64 20 74 6f 20 61 |s not bo|und to a|
|00000a70| 6e 20 69 74 69 6d 65 72 | 2c 20 73 69 67 6e 61 6c |n itimer|, signal|
|00000a80| 0a 77 72 6f 6e 67 2d 74 | 79 70 65 2d 61 72 67 75 |.wrong-t|ype-argu|
|00000a90| 6d 65 6e 74 2e 20 20 54 | 68 69 73 20 69 73 20 61 |ment. T|his is a|
|00000aa0| 20 6d 61 63 72 6f 2e 1f | 0a 28 64 65 66 61 6c 69 | macro..|.(defali|
|00000ab0| 61 73 20 27 63 68 65 63 | 6b 2d 69 74 69 6d 65 72 |as 'chec|k-itimer|
|00000ac0| 2d 63 6f 65 72 63 65 2d | 73 74 72 69 6e 67 20 27 |-coerce-|string '|
|00000ad0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 76 61 72 29 |(macro .| #[(var)|
|00000ae0| 20 22 c0 09 c2 c3 09 44 | 09 44 c4 09 44 c5 09 44 | ".....D|.D..D..D|
|00000af0| 44 c6 c7 c8 c9 ca 09 45 | 45 44 46 45 87 22 20 5b |D......E|EDFE." [|
|00000b00| 73 65 74 71 20 76 61 72 | 20 63 6f 6e 64 20 69 74 |setq var| cond it|
|00000b10| 69 6d 65 72 70 20 73 74 | 72 69 6e 67 70 20 67 65 |imerp st|ringp ge|
|00000b20| 74 2d 69 74 69 6d 65 72 | 20 74 20 73 69 67 6e 61 |t-itimer| t signa|
|00000b30| 6c 20 27 77 72 6f 6e 67 | 2d 74 79 70 65 2d 61 72 |l 'wrong|-type-ar|
|00000b40| 67 75 6d 65 6e 74 20 6c | 69 73 74 20 27 73 74 72 |gument l|ist 'str|
|00000b50| 69 6e 67 2d 6f 72 2d 69 | 74 69 6d 65 72 2d 70 5d |ing-or-i|timer-p]|
|00000b60| 20 31 31 20 28 23 24 20 | 2e 20 32 35 35 31 29 5d | 11 (#$ |. 2551)]|
|00000b70| 29 29 0a 23 40 31 34 37 | 20 49 66 20 56 41 52 20 |)).#@147| If VAR |
|00000b80| 69 73 20 6e 6f 74 20 62 | 6f 75 6e 64 20 74 6f 20 |is not b|ound to |
|00000b90| 61 20 6e 75 6d 62 65 72 | 2c 20 73 69 67 6e 61 6c |a number|, signal|
|00000ba0| 20 77 72 6f 6e 67 2d 74 | 79 70 65 2d 61 72 67 75 | wrong-t|ype-argu|
|00000bb0| 6d 65 6e 74 2e 0a 49 66 | 20 56 41 52 20 69 73 20 |ment..If| VAR is |
|00000bc0| 6e 6f 74 20 62 6f 75 6e | 64 20 74 6f 20 61 20 70 |not boun|d to a p|
|00000bd0| 6f 73 69 74 69 76 65 20 | 6e 75 6d 62 65 72 2c 20 |ositive |number, |
|00000be0| 73 69 67 6e 61 6c 20 61 | 72 67 73 2d 6f 75 74 2d |signal a|rgs-out-|
|00000bf0| 6f 66 2d 72 61 6e 67 65 | 2e 0a 54 68 69 73 20 69 |of-range|..This i|
|00000c00| 73 20 61 20 6d 61 63 72 | 6f 2e 1f 0a 28 64 65 66 |s a macr|o...(def|
|00000c10| 61 6c 69 61 73 20 27 63 | 68 65 63 6b 2d 6e 6f 6e |alias 'c|heck-non|
|00000c20| 6e 65 67 61 74 69 76 65 | 2d 6e 75 6d 62 65 72 20 |negative|-number |
|00000c30| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 76 61 72 |'(macro |. #[(var|
|00000c40| 29 20 22 c0 09 c2 c3 c4 | 09 44 44 c5 c6 c7 c8 09 |) ".....|.DD.....|
|00000c50| 45 45 c2 c9 09 ca 45 c5 | cb c7 09 44 45 09 46 46 |EE....E.|...DE.FF|
|00000c60| 45 87 22 20 5b 73 65 74 | 71 20 76 61 72 20 69 66 |E." [set|q var if|
|00000c70| 20 6e 6f 74 20 6e 75 6d | 62 65 72 70 20 73 69 67 | not num|berp sig|
|00000c80| 6e 61 6c 20 27 77 72 6f | 6e 67 2d 74 79 70 65 2d |nal 'wro|ng-type-|
|00000c90| 61 72 67 75 6d 65 6e 74 | 20 6c 69 73 74 20 27 6e |argument| list 'n|
|00000ca0| 61 74 6e 75 6d 70 20 3c | 20 30 20 27 61 72 67 73 |atnump <| 0 'args|
|00000cb0| 2d 6f 75 74 2d 6f 66 2d | 72 61 6e 67 65 5d 20 31 |-out-of-|range] 1|
|00000cc0| 31 20 28 23 24 20 2e 20 | 32 39 33 37 29 5d 29 29 |1 (#$ . |2937)]))|
|00000cd0| 0a 23 40 37 39 20 49 66 | 20 56 41 52 20 69 73 20 |.#@79 If| VAR is |
|00000ce0| 6e 6f 74 20 62 6f 75 6e | 64 20 74 6f 20 61 20 73 |not boun|d to a s|
|00000cf0| 74 72 69 6e 67 2c 20 73 | 69 67 6e 61 6c 20 77 72 |tring, s|ignal wr|
|00000d00| 6f 6e 67 2d 74 79 70 65 | 2d 61 72 67 75 6d 65 6e |ong-type|-argumen|
|00000d10| 74 2e 0a 54 68 69 73 20 | 69 73 20 61 20 6d 61 63 |t..This |is a mac|
|00000d20| 72 6f 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ro...(de|falias '|
|00000d30| 63 68 65 63 6b 2d 73 74 | 72 69 6e 67 20 27 28 6d |check-st|ring '(m|
|00000d40| 61 63 72 6f 20 2e 20 23 | 5b 28 76 61 72 29 20 22 |acro . #|[(var) "|
|00000d50| c0 09 c2 c3 09 44 09 c4 | c5 c6 c7 09 45 45 46 45 |.....D..|....EEFE|
|00000d60| 87 22 20 5b 73 65 74 71 | 20 76 61 72 20 69 66 20 |." [setq| var if |
|00000d70| 73 74 72 69 6e 67 70 20 | 73 69 67 6e 61 6c 20 27 |stringp |signal '|
|00000d80| 77 72 6f 6e 67 2d 74 79 | 70 65 2d 61 72 67 75 6d |wrong-ty|pe-argum|
|00000d90| 65 6e 74 20 6c 69 73 74 | 20 27 73 74 72 69 6e 67 |ent list| 'string|
|00000da0| 70 5d 20 31 30 20 28 23 | 24 20 2e 20 33 32 38 36 |p] 10 (#|$ . 3286|
|00000db0| 29 5d 29 29 0a 23 40 33 | 39 20 52 65 74 75 72 6e |)])).#@3|9 Return|
|00000dc0| 73 20 6e 6f 6e 2d 6e 69 | 6c 20 69 66 66 20 4f 42 |s non-ni|l iff OB|
|00000dd0| 4a 20 69 73 20 61 6e 20 | 69 74 69 6d 65 72 2e 1f |J is an |itimer..|
|00000de0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 74 69 6d |.(defali|as 'itim|
|00000df0| 65 72 70 20 23 5b 28 6f | 62 6a 29 20 22 08 3a ad |erp #[(o|bj) ".:.|
|00000e00| 84 08 47 c1 61 87 22 20 | 5b 6f 62 6a 20 38 5d 20 |..G.a." |[obj 8] |
|00000e10| 32 20 28 23 24 20 2e 20 | 33 35 31 34 29 5d 29 0a |2 (#$ . |3514)]).|
|00000e20| 23 40 32 33 30 20 52 65 | 74 75 72 6e 73 20 6e 6f |#@230 Re|turns no|
|00000e30| 6e 2d 6e 69 6c 20 69 66 | 66 20 4f 42 4a 20 69 73 |n-nil if|f OBJ is|
|00000e40| 20 61 6e 20 69 74 69 6d | 65 72 20 61 6e 64 20 69 | an itim|er and i|
|00000e50| 73 20 61 63 74 69 76 65 | 2e 0a 60 60 41 63 74 69 |s active|..``Acti|
|00000e60| 76 65 27 27 20 6d 65 61 | 6e 73 20 45 6d 61 63 73 |ve'' mea|ns Emacs|
|00000e70| 20 77 69 6c 6c 20 72 75 | 6e 20 69 74 20 77 68 65 | will ru|n it whe|
|00000e80| 6e 20 69 74 20 65 78 70 | 69 72 65 73 2e 0a 60 61 |n it exp|ires..`a|
|00000e90| 63 74 69 76 61 74 65 2d | 74 69 6d 65 72 27 20 6d |ctivate-|timer' m|
|00000ea0| 75 73 74 20 62 65 20 63 | 61 6c 6c 65 64 20 6f 6e |ust be c|alled on|
|00000eb0| 20 61 20 69 74 69 6d 65 | 72 20 74 6f 20 6d 61 6b | a itime|r to mak|
|00000ec0| 65 20 69 74 20 61 63 74 | 69 76 65 2e 0a 49 74 69 |e it act|ive..Iti|
|00000ed0| 6d 65 72 73 20 73 74 61 | 72 74 65 64 20 77 69 74 |mers sta|rted wit|
|00000ee0| 68 20 60 73 74 61 72 74 | 2d 69 74 69 6d 65 72 27 |h `start|-itimer'|
|00000ef0| 20 61 72 65 20 61 75 74 | 6f 6d 61 74 69 63 61 6c | are aut|omatical|
|00000f00| 6c 79 20 61 63 74 69 76 | 65 2e 1f 0a 28 64 65 66 |ly activ|e...(def|
|00000f10| 61 6c 69 61 73 20 27 69 | 74 69 6d 65 72 2d 6c 69 |alias 'i|timer-li|
|00000f20| 76 65 2d 70 20 23 5b 28 | 6f 62 6a 29 20 22 c0 09 |ve-p #[(|obj) "..|
|00000f30| 21 ad 83 09 5c 6e 73 87 | 22 20 5b 69 74 69 6d 65 |!...\ns.|" [itime|
|00000f40| 72 70 20 6f 62 6a 20 69 | 74 69 6d 65 72 2d 6c 69 |rp obj i|timer-li|
|00000f50| 73 74 5d 20 32 20 28 23 | 24 20 2e 20 33 36 32 32 |st] 2 (#|$ . 3622|
|00000f60| 29 5d 29 0a 23 40 32 39 | 20 52 65 74 75 72 6e 73 |)]).#@29| Returns|
|00000f70| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 49 54 49 | the nam|e of ITI|
|00000f80| 4d 45 52 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |MER...(d|efalias |
|00000f90| 27 69 74 69 6d 65 72 2d | 6e 61 6d 65 20 23 5b 28 |'itimer-|name #[(|
|00000fa0| 69 74 69 6d 65 72 29 20 | 22 c0 09 21 ab 83 09 aa |itimer) |"..!....|
|00000fb0| 86 c2 c3 c0 09 44 5c 22 | 89 11 40 87 22 20 5b 69 |.....D\"|..@." [i|
|00000fc0| 74 69 6d 65 72 70 20 69 | 74 69 6d 65 72 20 73 69 |timerp i|timer si|
|00000fd0| 67 6e 61 6c 20 77 72 6f | 6e 67 2d 74 79 70 65 2d |gnal wro|ng-type-|
|00000fe0| 61 72 67 75 6d 65 6e 74 | 5d 20 35 20 28 23 24 20 |argument|] 5 (#$ |
|00000ff0| 2e 20 33 39 34 35 29 5d | 29 0a 23 40 35 33 20 52 |. 3945)]|).#@53 R|
|00001000| 65 74 75 72 6e 73 20 74 | 68 65 20 6e 75 6d 62 65 |eturns t|he numbe|
|00001010| 72 20 6f 66 20 73 65 63 | 6f 6e 64 73 20 75 6e 74 |r of sec|onds unt|
|00001020| 69 6c 20 49 54 49 4d 45 | 52 20 65 78 70 69 72 65 |il ITIME|R expire|
|00001030| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |s...(def|alias 'i|
|00001040| 74 69 6d 65 72 2d 76 61 | 6c 75 65 20 23 5b 28 69 |timer-va|lue #[(i|
|00001050| 74 69 6d 65 72 29 20 22 | c0 09 21 ab 83 09 aa 86 |timer) "|..!.....|
|00001060| c2 c3 c0 09 44 5c 22 89 | 11 41 40 87 22 20 5b 69 |....D\".|.A@." [i|
|00001070| 74 69 6d 65 72 70 20 69 | 74 69 6d 65 72 20 73 69 |timerp i|timer si|
|00001080| 67 6e 61 6c 20 77 72 6f | 6e 67 2d 74 79 70 65 2d |gnal wro|ng-type-|
|00001090| 61 72 67 75 6d 65 6e 74 | 5d 20 35 20 28 23 24 20 |argument|] 5 (#$ |
|000010a0| 2e 20 34 30 39 35 29 5d | 29 0a 23 40 31 30 37 20 |. 4095)]|).#@107 |
|000010b0| 52 65 74 75 72 6e 73 20 | 74 68 65 20 76 61 6c 75 |Returns |the valu|
|000010c0| 65 20 74 6f 20 77 68 69 | 63 68 20 49 54 49 4d 45 |e to whi|ch ITIME|
|000010d0| 52 20 77 69 6c 6c 20 62 | 65 20 73 65 74 20 61 74 |R will b|e set at|
|000010e0| 20 72 65 73 74 61 72 74 | 2e 0a 6e 69 6c 20 69 73 | restart|..nil is|
|000010f0| 20 72 65 74 75 72 6e 65 | 64 20 69 66 20 74 68 69 | returne|d if thi|
|00001100| 73 20 69 74 69 6d 65 72 | 20 64 6f 65 73 6e 27 74 |s itimer| doesn't|
|00001110| 20 72 65 73 74 61 72 74 | 2e 1f 0a 28 64 65 66 61 | restart|...(defa|
|00001120| 6c 69 61 73 20 27 69 74 | 69 6d 65 72 2d 72 65 73 |lias 'it|imer-res|
|00001130| 74 61 72 74 20 23 5b 28 | 69 74 69 6d 65 72 29 20 |tart #[(|itimer) |
|00001140| 22 c0 09 21 ab 83 09 aa | 86 c2 c3 c0 09 44 5c 22 |"..!....|.....D\"|
|00001150| 11 c4 09 38 87 22 20 5b | 69 74 69 6d 65 72 70 20 |...8." [|itimerp |
|00001160| 69 74 69 6d 65 72 20 73 | 69 67 6e 61 6c 20 77 72 |itimer s|ignal wr|
|00001170| 6f 6e 67 2d 74 79 70 65 | 2d 61 72 67 75 6d 65 6e |ong-type|-argumen|
|00001180| 74 20 32 5d 20 34 20 28 | 23 24 20 2e 20 34 32 37 |t 2] 4 (|#$ . 427|
|00001190| 32 29 5d 29 0a 23 40 38 | 33 20 52 65 74 75 72 6e |2)]).#@8|3 Return|
|000011a0| 73 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 6f |s the fu|nction o|
|000011b0| 66 20 49 54 49 4d 45 52 | 2e 0a 54 68 69 73 20 66 |f ITIMER|..This f|
|000011c0| 75 6e 63 74 69 6f 6e 20 | 69 73 20 63 61 6c 6c 65 |unction |is calle|
|000011d0| 64 20 65 61 63 68 20 74 | 69 6d 65 20 49 54 49 4d |d each t|ime ITIM|
|000011e0| 45 52 20 65 78 70 69 72 | 65 73 2e 1f 0a 28 64 65 |ER expir|es...(de|
|000011f0| 66 61 6c 69 61 73 20 27 | 69 74 69 6d 65 72 2d 66 |falias '|itimer-f|
|00001200| 75 6e 63 74 69 6f 6e 20 | 23 5b 28 69 74 69 6d 65 |unction |#[(itime|
|00001210| 72 29 20 22 c0 09 21 ab | 83 09 aa 86 c2 c3 c0 09 |r) "..!.|........|
|00001220| 44 5c 22 11 c4 09 38 87 | 22 20 5b 69 74 69 6d 65 |D\"...8.|" [itime|
|00001230| 72 70 20 69 74 69 6d 65 | 72 20 73 69 67 6e 61 6c |rp itime|r signal|
|00001240| 20 77 72 6f 6e 67 2d 74 | 79 70 65 2d 61 72 67 75 | wrong-t|ype-argu|
|00001250| 6d 65 6e 74 20 33 5d 20 | 34 20 28 23 24 20 2e 20 |ment 3] |4 (#$ . |
|00001260| 34 35 30 36 29 5d 29 0a | 23 40 32 31 39 20 52 65 |4506)]).|#@219 Re|
|00001270| 74 75 72 6e 73 20 6e 6f | 6e 2d 6e 69 6c 20 69 66 |turns no|n-nil if|
|00001280| 20 49 54 49 4d 45 52 20 | 69 73 20 61 6e 20 69 64 | ITIMER |is an id|
|00001290| 6c 65 20 74 69 6d 65 72 | 2e 0a 4e 6f 72 6d 61 6c |le timer|..Normal|
|000012a0| 20 74 69 6d 65 72 73 20 | 65 78 70 69 72 65 20 61 | timers |expire a|
|000012b0| 66 74 65 72 20 61 20 73 | 65 74 20 69 6e 74 65 72 |fter a s|et inter|
|000012c0| 76 61 6c 2e 20 20 49 64 | 6c 65 20 74 69 6d 65 72 |val. Id|le timer|
|000012d0| 73 20 65 78 70 69 72 65 | 0a 6f 6e 6c 79 20 61 66 |s expire|.only af|
|000012e0| 74 65 72 20 45 6d 61 63 | 73 20 68 61 73 20 62 65 |ter Emac|s has be|
|000012f0| 65 6e 20 69 64 6c 65 20 | 66 6f 72 20 61 20 73 70 |en idle |for a sp|
|00001300| 65 63 69 66 69 63 20 69 | 6e 74 65 72 76 61 6c 2e |ecific i|nterval.|
|00001310| 20 20 60 60 49 64 6c 65 | 27 27 0a 6d 65 61 6e 73 | ``Idle|''.means|
|00001320| 20 6e 6f 20 63 6f 6d 6d | 61 6e 64 20 65 76 65 6e | no comm|and even|
|00001330| 74 73 20 77 69 74 68 69 | 6e 20 74 68 65 20 69 6e |ts withi|n the in|
|00001340| 74 65 72 76 61 6c 2e 1f | 0a 28 64 65 66 61 6c 69 |terval..|.(defali|
|00001350| 61 73 20 27 69 74 69 6d | 65 72 2d 69 73 2d 69 64 |as 'itim|er-is-id|
|00001360| 6c 65 20 23 5b 28 69 74 | 69 6d 65 72 29 20 22 c0 |le #[(it|imer) ".|
|00001370| 09 21 ab 83 09 aa 86 c2 | c3 c0 09 44 5c 22 11 c4 |.!......|...D\"..|
|00001380| 09 38 87 22 20 5b 69 74 | 69 6d 65 72 70 20 69 74 |.8." [it|imerp it|
|00001390| 69 6d 65 72 20 73 69 67 | 6e 61 6c 20 77 72 6f 6e |imer sig|nal wron|
|000013a0| 67 2d 74 79 70 65 2d 61 | 72 67 75 6d 65 6e 74 20 |g-type-a|rgument |
|000013b0| 34 5d 20 34 20 28 23 24 | 20 2e 20 34 37 31 38 29 |4] 4 (#$| . 4718)|
|000013c0| 5d 29 0a 23 40 32 32 32 | 20 52 65 74 75 72 6e 73 |]).#@222| Returns|
|000013d0| 20 6e 6f 6e 2d 6e 69 6c | 20 69 66 20 74 68 65 20 | non-nil| if the |
|000013e0| 66 75 6e 63 74 69 6f 6e | 20 6f 66 20 49 54 49 4d |function| of ITIM|
|000013f0| 45 52 20 77 69 6c 6c 20 | 62 65 20 63 61 6c 6c 65 |ER will |be calle|
|00001400| 64 20 77 69 74 68 20 61 | 72 67 75 6d 65 6e 74 73 |d with a|rguments|
|00001410| 2e 0a 49 54 49 4d 45 52 | 27 73 20 66 75 6e 63 74 |..ITIMER|'s funct|
|00001420| 69 6f 6e 20 69 73 20 63 | 61 6c 6c 65 64 20 77 69 |ion is c|alled wi|
|00001430| 74 68 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 73 |th the a|rguments|
|00001440| 20 65 61 63 68 20 74 69 | 6d 65 20 49 54 49 4d 45 | each ti|me ITIME|
|00001450| 52 20 65 78 70 69 72 65 | 73 2e 0a 54 68 65 20 61 |R expire|s..The a|
|00001460| 72 67 75 6d 65 6e 74 73 | 20 74 68 65 6d 73 65 6c |rguments| themsel|
|00001470| 76 65 73 20 61 72 65 20 | 72 65 74 72 69 65 76 61 |ves are |retrieva|
|00001480| 62 6c 65 20 77 69 74 68 | 20 60 69 74 69 6d 65 72 |ble with| `itimer|
|00001490| 2d 66 75 6e 63 74 69 6f | 6e 2d 61 72 67 75 6d 65 |-functio|n-argume|
|000014a0| 6e 74 73 27 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |nts'...(|defalias|
|000014b0| 20 27 69 74 69 6d 65 72 | 2d 75 73 65 73 2d 61 72 | 'itimer|-uses-ar|
|000014c0| 67 75 6d 65 6e 74 73 20 | 23 5b 28 69 74 69 6d 65 |guments |#[(itime|
|000014d0| 72 29 20 22 c0 09 21 ab | 83 09 aa 86 c2 c3 c0 09 |r) "..!.|........|
|000014e0| 44 5c 22 11 c4 09 38 87 | 22 20 5b 69 74 69 6d 65 |D\"...8.|" [itime|
|000014f0| 72 70 20 69 74 69 6d 65 | 72 20 73 69 67 6e 61 6c |rp itime|r signal|
|00001500| 20 77 72 6f 6e 67 2d 74 | 79 70 65 2d 61 72 67 75 | wrong-t|ype-argu|
|00001510| 6d 65 6e 74 20 35 5d 20 | 34 20 28 23 24 20 2e 20 |ment 5] |4 (#$ . |
|00001520| 35 30 36 35 29 5d 29 0a | 23 40 31 32 38 20 52 65 |5065)]).|#@128 Re|
|00001530| 74 75 72 6e 73 20 74 68 | 65 20 66 75 6e 63 74 69 |turns th|e functi|
|00001540| 6f 6e 20 61 72 67 75 6d | 65 6e 74 73 20 6f 66 20 |on argum|ents of |
|00001550| 49 54 49 4d 45 52 20 61 | 73 20 61 20 6c 69 73 74 |ITIMER a|s a list|
|00001560| 2e 0a 49 54 49 4d 45 52 | 27 73 20 66 75 6e 63 74 |..ITIMER|'s funct|
|00001570| 69 6f 6e 20 69 73 20 63 | 61 6c 6c 65 64 20 77 69 |ion is c|alled wi|
|00001580| 74 68 20 74 68 65 73 65 | 20 61 72 67 75 6d 65 6e |th these| argumen|
|00001590| 74 20 65 61 63 68 20 74 | 69 6d 65 72 20 49 54 49 |t each t|imer ITI|
|000015a0| 4d 45 52 20 65 78 70 69 | 72 65 73 2e 1f 0a 28 64 |MER expi|res...(d|
|000015b0| 65 66 61 6c 69 61 73 20 | 27 69 74 69 6d 65 72 2d |efalias |'itimer-|
|000015c0| 66 75 6e 63 74 69 6f 6e | 2d 61 72 67 75 6d 65 6e |function|-argumen|
|000015d0| 74 73 20 23 5b 28 69 74 | 69 6d 65 72 29 20 22 c0 |ts #[(it|imer) ".|
|000015e0| 09 21 ab 83 09 aa 86 c2 | c3 c0 09 44 5c 22 11 c4 |.!......|...D\"..|
|000015f0| 09 38 87 22 20 5b 69 74 | 69 6d 65 72 70 20 69 74 |.8." [it|imerp it|
|00001600| 69 6d 65 72 20 73 69 67 | 6e 61 6c 20 77 72 6f 6e |imer sig|nal wron|
|00001610| 67 2d 74 79 70 65 2d 61 | 72 67 75 6d 65 6e 74 20 |g-type-a|rgument |
|00001620| 36 5d 20 34 20 28 23 24 | 20 2e 20 35 34 32 32 29 |6] 4 (#$| . 5422)|
|00001630| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 74 |]).(defa|lias 'it|
|00001640| 69 6d 65 72 2d 72 65 63 | 6f 72 64 65 64 2d 72 75 |imer-rec|orded-ru|
|00001650| 6e 2d 74 69 6d 65 20 23 | 5b 28 69 74 69 6d 65 72 |n-time #|[(itimer|
|00001660| 29 20 22 c0 09 21 ab 83 | 09 aa 86 c2 c3 c0 09 44 |) "..!..|.......D|
|00001670| 5c 22 11 c4 09 38 87 22 | 20 5b 69 74 69 6d 65 72 |\"...8."| [itimer|
|00001680| 70 20 69 74 69 6d 65 72 | 20 73 69 67 6e 61 6c 20 |p itimer| signal |
|00001690| 77 72 6f 6e 67 2d 74 79 | 70 65 2d 61 72 67 75 6d |wrong-ty|pe-argum|
|000016a0| 65 6e 74 20 37 5d 20 34 | 5d 29 0a 23 40 32 33 36 |ent 7] 4|]).#@236|
|000016b0| 20 53 65 74 20 74 68 65 | 20 74 69 6d 65 6f 75 74 | Set the| timeout|
|000016c0| 20 76 61 6c 75 65 20 6f | 66 20 49 54 49 4d 45 52 | value o|f ITIMER|
|000016d0| 20 74 6f 20 62 65 20 56 | 41 4c 55 45 2e 0a 49 74 | to be V|ALUE..It|
|000016e0| 69 6d 65 72 20 77 69 6c | 6c 20 65 78 70 69 72 65 |imer wil|l expire|
|000016f0| 20 69 73 20 74 68 69 73 | 20 6d 61 6e 79 20 73 65 | is this| many se|
|00001700| 63 6f 6e 64 73 2e 0a 49 | 66 20 79 6f 75 72 20 76 |conds..I|f your v|
|00001710| 65 72 73 69 6f 6e 20 6f | 66 20 45 6d 61 63 73 20 |ersion o|f Emacs |
|00001720| 73 75 70 70 6f 72 74 73 | 20 66 6c 6f 61 74 69 6e |supports| floatin|
|00001730| 67 20 70 6f 69 6e 74 20 | 6e 75 6d 62 65 72 73 20 |g point |numbers |
|00001740| 74 68 65 6e 0a 56 41 4c | 55 45 20 63 61 6e 20 62 |then.VAL|UE can b|
|00001750| 65 20 61 20 66 6c 6f 61 | 74 69 6e 67 20 70 6f 69 |e a floa|ting poi|
|00001760| 6e 74 20 6e 75 6d 62 65 | 72 2e 20 20 4f 74 68 65 |nt numbe|r. Othe|
|00001770| 72 77 69 73 65 20 69 74 | 0a 6d 75 73 74 20 62 65 |rwise it|.must be|
|00001780| 20 61 6e 20 69 6e 74 65 | 67 65 72 2e 0a 52 65 74 | an inte|ger..Ret|
|00001790| 75 72 6e 73 20 56 41 4c | 55 45 2e 1f 0a 28 64 65 |urns VAL|UE...(de|
|000017a0| 66 61 6c 69 61 73 20 27 | 73 65 74 2d 69 74 69 6d |falias '|set-itim|
|000017b0| 65 72 2d 76 61 6c 75 65 | 20 23 5b 28 69 74 69 6d |er-value| #[(itim|
|000017c0| 65 72 20 76 61 6c 75 65 | 29 20 22 c0 09 21 ab 83 |er value|) "..!..|
|000017d0| 09 aa 86 c2 c3 c0 09 44 | 5c 22 11 0c a7 ac 88 c2 |.......D|\"......|
|000017e0| c3 c5 0c 44 5c 22 aa 8d | 0c c6 57 ab 87 c2 c7 0c |...D\"..|..W.....|
|000017f0| 43 5c 22 aa 81 0c 14 c8 | 1e 09 0c 0e 5c 6e 57 ab |C\".....|....\nW.|
|00001800| 99 cb 09 21 ab 94 cc cb | 09 21 21 ab 8d cd 20 88 |...!....|.!!... .|
|00001810| 09 41 0c a0 88 cd 20 88 | aa 85 09 41 0c a0 88 0c |.A.... .|...A....|
|00001820| 29 87 22 20 5b 69 74 69 | 6d 65 72 70 20 69 74 69 |)." [iti|merp iti|
|00001830| 6d 65 72 20 73 69 67 6e | 61 6c 20 77 72 6f 6e 67 |mer sign|al wrong|
|00001840| 2d 74 79 70 65 2d 61 72 | 67 75 6d 65 6e 74 20 76 |-type-ar|gument v|
|00001850| 61 6c 75 65 20 6e 61 74 | 6e 75 6d 70 20 30 20 61 |alue nat|nump 0 a|
|00001860| 72 67 73 2d 6f 75 74 2d | 6f 66 2d 72 61 6e 67 65 |rgs-out-|of-range|
|00001870| 20 74 20 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 | t inhib|it-quit |
|00001880| 69 74 69 6d 65 72 2d 6e | 65 78 74 2d 77 61 6b 65 |itimer-n|ext-wake|
|00001890| 75 70 20 69 74 69 6d 65 | 72 2d 6e 61 6d 65 20 67 |up itime|r-name g|
|000018a0| 65 74 2d 69 74 69 6d 65 | 72 20 69 74 69 6d 65 72 |et-itime|r itimer|
|000018b0| 2d 64 72 69 76 65 72 2d | 77 61 6b 65 75 70 5d 20 |-driver-|wakeup] |
|000018c0| 34 20 28 23 24 20 2e 20 | 35 38 30 39 29 5d 29 0a |4 (#$ . |5809)]).|
|000018d0| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 74 2d 69 |(defalia|s 'set-i|
|000018e0| 74 69 6d 65 72 2d 76 61 | 6c 75 65 2d 69 6e 74 65 |timer-va|lue-inte|
|000018f0| 72 6e 61 6c 20 23 5b 28 | 69 74 69 6d 65 72 20 76 |rnal #[(|itimer v|
|00001900| 61 6c 75 65 29 20 22 c0 | 09 21 ab 83 09 aa 86 c2 |alue) ".|.!......|
|00001910| c3 c0 09 44 5c 22 11 0c | a7 ac 88 c2 c3 c5 0c 44 |...D\"..|.......D|
|00001920| 5c 22 aa 8d 0c c6 57 ab | 87 c2 c7 0c 43 5c 22 aa |\"....W.|....C\".|
|00001930| 81 0c 14 09 41 0c a0 87 | 22 20 5b 69 74 69 6d 65 |....A...|" [itime|
|00001940| 72 70 20 69 74 69 6d 65 | 72 20 73 69 67 6e 61 6c |rp itime|r signal|
|00001950| 20 77 72 6f 6e 67 2d 74 | 79 70 65 2d 61 72 67 75 | wrong-t|ype-argu|
|00001960| 6d 65 6e 74 20 76 61 6c | 75 65 20 6e 61 74 6e 75 |ment val|ue natnu|
|00001970| 6d 70 20 30 20 61 72 67 | 73 2d 6f 75 74 2d 6f 66 |mp 0 arg|s-out-of|
|00001980| 2d 72 61 6e 67 65 5d 20 | 34 5d 29 0a 23 40 32 36 |-range] |4]).#@26|
|00001990| 31 20 53 65 74 20 74 68 | 65 20 72 65 73 74 61 72 |1 Set th|e restar|
|000019a0| 74 20 76 61 6c 75 65 20 | 6f 66 20 49 54 49 4d 45 |t value |of ITIME|
|000019b0| 52 20 74 6f 20 62 65 20 | 52 45 53 54 41 52 54 2e |R to be |RESTART.|
|000019c0| 0a 49 66 20 52 45 53 54 | 41 52 54 20 69 73 20 6e |.If REST|ART is n|
|000019d0| 69 6c 2c 20 49 54 49 4d | 45 52 20 77 69 6c 6c 20 |il, ITIM|ER will |
|000019e0| 6e 6f 74 20 72 65 73 74 | 61 72 74 20 77 68 65 6e |not rest|art when|
|000019f0| 20 69 74 20 65 78 70 69 | 72 65 73 2e 0a 49 66 20 | it expi|res..If |
|00001a00| 79 6f 75 72 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 |your ver|sion of |
|00001a10| 45 6d 61 63 73 20 73 75 | 70 70 6f 72 74 73 20 66 |Emacs su|pports f|
|00001a20| 6c 6f 61 74 69 6e 67 20 | 70 6f 69 6e 74 20 6e 75 |loating |point nu|
|00001a30| 6d 62 65 72 73 20 74 68 | 65 6e 0a 52 45 53 54 41 |mbers th|en.RESTA|
|00001a40| 52 54 20 63 61 6e 20 62 | 65 20 61 20 66 6c 6f 61 |RT can b|e a floa|
|00001a50| 74 69 6e 67 20 70 6f 69 | 6e 74 20 6e 75 6d 62 65 |ting poi|nt numbe|
|00001a60| 72 2e 20 20 4f 74 68 65 | 72 77 69 73 65 20 69 74 |r. Othe|rwise it|
|00001a70| 0a 6d 75 73 74 20 62 65 | 20 61 6e 20 69 6e 74 65 |.must be| an inte|
|00001a80| 67 65 72 2e 0a 52 65 74 | 75 72 6e 73 20 52 45 53 |ger..Ret|urns RES|
|00001a90| 54 41 52 54 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |TART...(|defalias|
|00001aa0| 20 27 73 65 74 2d 69 74 | 69 6d 65 72 2d 72 65 73 | 'set-it|imer-res|
|00001ab0| 74 61 72 74 20 23 5b 28 | 69 74 69 6d 65 72 20 72 |tart #[(|itimer r|
|00001ac0| 65 73 74 61 72 74 29 20 | 22 c0 09 21 ab 83 09 aa |estart) |"..!....|
|00001ad0| 86 c2 c3 c0 09 44 5c 22 | 11 0c ab 9a 0c a7 ac 88 |.....D\"|........|
|00001ae0| c2 c3 c5 0c 44 5c 22 aa | 8d 0c c6 57 ab 87 c2 c7 |....D\".|...W....|
|00001af0| 0c 43 5c 22 aa 81 0c 14 | 09 41 41 0c a0 87 22 20 |.C\"....|.AA..." |
|00001b00| 5b 69 74 69 6d 65 72 70 | 20 69 74 69 6d 65 72 20 |[itimerp| itimer |
|00001b10| 73 69 67 6e 61 6c 20 77 | 72 6f 6e 67 2d 74 79 70 |signal w|rong-typ|
|00001b20| 65 2d 61 72 67 75 6d 65 | 6e 74 20 72 65 73 74 61 |e-argume|nt resta|
|00001b30| 72 74 20 6e 61 74 6e 75 | 6d 70 20 30 20 61 72 67 |rt natnu|mp 0 arg|
|00001b40| 73 2d 6f 75 74 2d 6f 66 | 2d 72 61 6e 67 65 5d 20 |s-out-of|-range] |
|00001b50| 34 20 28 23 24 20 2e 20 | 36 35 34 36 29 5d 29 0a |4 (#$ . |6546)]).|
|00001b60| 23 40 31 30 37 20 53 65 | 74 20 74 68 65 20 66 75 |#@107 Se|t the fu|
|00001b70| 6e 63 74 69 6f 6e 20 6f | 66 20 49 54 49 4d 45 52 |nction o|f ITIMER|
|00001b80| 20 74 6f 20 62 65 20 46 | 55 4e 43 54 49 4f 4e 2e | to be F|UNCTION.|
|00001b90| 0a 46 55 4e 43 54 49 4f | 4e 20 77 69 6c 6c 20 62 |.FUNCTIO|N will b|
|00001ba0| 65 20 63 61 6c 6c 65 64 | 20 77 68 65 6e 20 69 74 |e called| when it|
|00001bb0| 69 6d 65 72 20 65 78 70 | 69 72 65 73 2e 0a 52 65 |imer exp|ires..Re|
|00001bc0| 74 75 72 6e 73 20 46 55 | 4e 43 54 49 4f 4e 2e 1f |turns FU|NCTION..|
|00001bd0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 65 74 2d |.(defali|as 'set-|
|00001be0| 69 74 69 6d 65 72 2d 66 | 75 6e 63 74 69 6f 6e 20 |itimer-f|unction |
|00001bf0| 23 5b 28 69 74 69 6d 65 | 72 20 66 75 6e 63 74 69 |#[(itime|r functi|
|00001c00| 6f 6e 29 20 22 c0 09 21 | ab 83 09 aa 86 c2 c3 c0 |on) "..!|........|
|00001c10| 09 44 5c 22 11 c4 09 9b | 0d a0 87 22 20 5b 69 74 |.D\"....|..." [it|
|00001c20| 69 6d 65 72 70 20 69 74 | 69 6d 65 72 20 73 69 67 |imerp it|imer sig|
|00001c30| 6e 61 6c 20 77 72 6f 6e | 67 2d 74 79 70 65 2d 61 |nal wron|g-type-a|
|00001c40| 72 67 75 6d 65 6e 74 20 | 33 20 66 75 6e 63 74 69 |rgument |3 functi|
|00001c50| 6f 6e 5d 20 34 20 28 23 | 24 20 2e 20 37 30 31 34 |on] 4 (#|$ . 7014|
|00001c60| 29 5d 29 0a 23 40 31 33 | 34 20 53 65 74 73 20 66 |)]).#@13|4 Sets f|
|00001c70| 6c 61 67 20 74 68 61 74 | 20 73 61 79 73 20 77 68 |lag that| says wh|
|00001c80| 65 74 68 65 72 20 49 54 | 49 4d 45 52 20 69 73 20 |ether IT|IMER is |
|00001c90| 61 6e 20 69 64 6c 65 20 | 74 69 6d 65 72 2e 0a 49 |an idle |timer..I|
|00001ca0| 66 20 46 4c 41 47 20 69 | 73 20 6e 6f 6e 2d 6e 69 |f FLAG i|s non-ni|
|00001cb0| 6c 2c 20 74 68 65 6e 20 | 49 54 49 4d 45 52 20 77 |l, then |ITIMER w|
|00001cc0| 69 6c 6c 20 65 62 20 63 | 6f 6e 73 69 64 65 72 65 |ill eb c|onsidere|
|00001cd0| 64 20 61 6e 20 69 64 6c | 65 20 74 69 6d 65 72 2e |d an idl|e timer.|
|00001ce0| 0a 52 65 74 75 72 6e 73 | 20 46 4c 41 47 2e 1f 0a |.Returns| FLAG...|
|00001cf0| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 74 2d 69 |(defalia|s 'set-i|
|00001d00| 74 69 6d 65 72 2d 69 73 | 2d 69 64 6c 65 20 23 5b |timer-is|-idle #[|
|00001d10| 28 69 74 69 6d 65 72 20 | 66 6c 61 67 29 20 22 c0 |(itimer |flag) ".|
|00001d20| 09 21 ab 83 09 aa 86 c2 | c3 c0 09 44 5c 22 11 c4 |.!......|...D\"..|
|00001d30| 09 9b 0d a0 87 22 20 5b | 69 74 69 6d 65 72 70 20 |....." [|itimerp |
|00001d40| 69 74 69 6d 65 72 20 73 | 69 67 6e 61 6c 20 77 72 |itimer s|ignal wr|
|00001d50| 6f 6e 67 2d 74 79 70 65 | 2d 61 72 67 75 6d 65 6e |ong-type|-argumen|
|00001d60| 74 20 34 20 66 6c 61 67 | 5d 20 34 20 28 23 24 20 |t 4 flag|] 4 (#$ |
|00001d70| 2e 20 37 32 37 34 29 5d | 29 0a 23 40 32 32 31 20 |. 7274)]|).#@221 |
|00001d80| 53 65 74 73 20 66 6c 61 | 67 20 74 68 61 74 20 73 |Sets fla|g that s|
|00001d90| 61 79 73 20 77 68 65 74 | 68 65 72 20 74 68 65 20 |ays whet|her the |
|00001da0| 66 75 6e 63 74 69 6f 6e | 20 6f 66 20 49 54 49 4d |function| of ITIM|
|00001db0| 45 52 20 69 73 20 63 61 | 6c 6c 65 64 20 77 69 74 |ER is ca|lled wit|
|00001dc0| 68 20 61 72 67 75 6d 65 | 6e 74 73 2e 0a 49 66 20 |h argume|nts..If |
|00001dd0| 46 4c 41 47 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2c |FLAG is |non-nil,|
|00001de0| 20 74 68 65 6e 20 74 68 | 65 20 66 75 6e 63 74 69 | then th|e functi|
|00001df0| 6f 6e 20 77 69 6c 6c 20 | 62 65 20 63 61 6c 6c 65 |on will |be calle|
|00001e00| 64 20 77 69 74 68 20 6f | 6e 65 20 61 72 67 75 6d |d with o|ne argum|
|00001e10| 65 6e 74 2c 0a 6f 74 68 | 65 72 77 69 73 65 20 74 |ent,.oth|erwise t|
|00001e20| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 77 69 6c 6c |he funct|ion will|
|00001e30| 20 62 65 20 63 61 6c 6c | 65 64 20 77 69 74 68 20 | be call|ed with |
|00001e40| 6e 6f 20 61 72 67 75 6d | 65 6e 74 73 2e 0a 52 65 |no argum|ents..Re|
|00001e50| 74 75 72 6e 73 20 46 4c | 41 47 2e 1f 0a 28 64 65 |turns FL|AG...(de|
|00001e60| 66 61 6c 69 61 73 20 27 | 73 65 74 2d 69 74 69 6d |falias '|set-itim|
|00001e70| 65 72 2d 75 73 65 73 2d | 61 72 67 75 6d 65 6e 74 |er-uses-|argument|
|00001e80| 73 20 23 5b 28 69 74 69 | 6d 65 72 20 66 6c 61 67 |s #[(iti|mer flag|
|00001e90| 29 20 22 c0 09 21 ab 83 | 09 aa 86 c2 c3 c0 09 44 |) "..!..|.......D|
|00001ea0| 5c 22 11 c4 09 9b 0d a0 | 87 22 20 5b 69 74 69 6d |\"......|." [itim|
|00001eb0| 65 72 70 20 69 74 69 6d | 65 72 20 73 69 67 6e 61 |erp itim|er signa|
|00001ec0| 6c 20 77 72 6f 6e 67 2d | 74 79 70 65 2d 61 72 67 |l wrong-|type-arg|
|00001ed0| 75 6d 65 6e 74 20 35 20 | 66 6c 61 67 5d 20 34 20 |ument 5 |flag] 4 |
|00001ee0| 28 23 24 20 2e 20 37 35 | 35 32 29 5d 29 0a 23 40 |(#$ . 75|52)]).#@|
|00001ef0| 31 34 38 20 53 65 74 20 | 74 68 65 20 66 75 6e 63 |148 Set |the func|
|00001f00| 74 69 6f 6e 20 61 72 67 | 75 6d 65 6e 74 73 20 6f |tion arg|uments o|
|00001f10| 66 20 49 54 49 4d 45 52 | 20 74 6f 20 62 65 20 41 |f ITIMER| to be A|
|00001f20| 52 47 55 4d 45 4e 54 53 | 2e 0a 54 68 65 20 66 75 |RGUMENTS|..The fu|
|00001f30| 6e 63 74 69 6f 6e 20 6f | 66 20 49 54 49 4d 45 52 |nction o|f ITIMER|
|00001f40| 20 77 69 6c 6c 20 62 65 | 20 63 61 6c 6c 65 64 20 | will be| called |
|00001f50| 77 69 74 68 20 41 52 47 | 55 4d 45 4e 54 53 20 77 |with ARG|UMENTS w|
|00001f60| 68 65 6e 20 69 74 69 6d | 65 72 20 65 78 70 69 72 |hen itim|er expir|
|00001f70| 65 73 2e 0a 52 65 74 75 | 72 6e 73 20 41 52 47 55 |es..Retu|rns ARGU|
|00001f80| 4d 45 4e 54 53 2e 1f 0a | 28 64 65 66 61 6c 69 61 |MENTS...|(defalia|
|00001f90| 73 20 27 73 65 74 2d 69 | 74 69 6d 65 72 2d 66 75 |s 'set-i|timer-fu|
|00001fa0| 6e 63 74 69 6f 6e 2d 61 | 72 67 75 6d 65 6e 74 73 |nction-a|rguments|
|00001fb0| 20 23 5b 28 69 74 69 6d | 65 72 20 26 6f 70 74 69 | #[(itim|er &opti|
|00001fc0| 6f 6e 61 6c 20 61 72 67 | 75 6d 65 6e 74 73 29 20 |onal arg|uments) |
|00001fd0| 22 c0 09 21 ab 83 09 aa | 86 c2 c3 c0 09 44 5c 22 |"..!....|.....D\"|
|00001fe0| 11 c4 09 9b 0d a0 87 22 | 20 5b 69 74 69 6d 65 72 |......."| [itimer|
|00001ff0| 70 20 69 74 69 6d 65 72 | 20 73 69 67 6e 61 6c 20 |p itimer| signal |
|00002000| 77 72 6f 6e 67 2d 74 79 | 70 65 2d 61 72 67 75 6d |wrong-ty|pe-argum|
|00002010| 65 6e 74 20 36 20 61 72 | 67 75 6d 65 6e 74 73 5d |ent 6 ar|guments]|
|00002020| 20 34 20 28 23 24 20 2e | 20 37 39 32 34 29 5d 29 | 4 (#$ .| 7924)])|
|00002030| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 65 74 2d |.(defali|as 'set-|
|00002040| 69 74 69 6d 65 72 2d 72 | 65 63 6f 72 64 65 64 2d |itimer-r|ecorded-|
|00002050| 72 75 6e 2d 74 69 6d 65 | 20 23 5b 28 69 74 69 6d |run-time| #[(itim|
|00002060| 65 72 20 74 69 6d 65 29 | 20 22 c0 09 21 ab 83 09 |er time)| "..!...|
|00002070| aa 86 c2 c3 c0 09 44 5c | 22 11 c4 09 9b 0d a0 87 |......D\|".......|
|00002080| 22 20 5b 69 74 69 6d 65 | 72 70 20 69 74 69 6d 65 |" [itime|rp itime|
|00002090| 72 20 73 69 67 6e 61 6c | 20 77 72 6f 6e 67 2d 74 |r signal| wrong-t|
|000020a0| 79 70 65 2d 61 72 67 75 | 6d 65 6e 74 20 37 20 74 |ype-argu|ment 7 t|
|000020b0| 69 6d 65 5d 20 34 5d 29 | 0a 23 40 35 32 20 52 65 |ime] 4])|.#@52 Re|
|000020c0| 74 75 72 6e 20 69 74 69 | 6d 65 72 20 6e 61 6d 65 |turn iti|mer name|
|000020d0| 64 20 4e 41 4d 45 2c 20 | 6f 72 20 6e 69 6c 20 69 |d NAME, |or nil i|
|000020e0| 66 20 74 68 65 72 65 20 | 69 73 20 6e 6f 6e 65 2e |f there |is none.|
|000020f0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 65 74 |..(defal|ias 'get|
|00002100| 2d 69 74 69 6d 65 72 20 | 23 5b 28 6e 61 6d 65 29 |-itimer |#[(name)|
|00002110| 20 22 08 3b ab 83 08 aa | 86 c1 c2 c3 08 44 5c 22 | ".;....|.....D\"|
|00002120| 10 c4 08 0d 5c 22 87 22 | 20 5b 6e 61 6d 65 20 73 |....\"."| [name s|
|00002130| 69 67 6e 61 6c 20 77 72 | 6f 6e 67 2d 74 79 70 65 |ignal wr|ong-type|
|00002140| 2d 61 72 67 75 6d 65 6e | 74 20 73 74 72 69 6e 67 |-argumen|t string|
|00002150| 70 20 61 73 73 6f 63 20 | 69 74 69 6d 65 72 2d 6c |p assoc |itimer-l|
|00002160| 69 73 74 5d 20 34 20 28 | 23 24 20 2e 20 38 33 38 |ist] 4 (|#$ . 838|
|00002170| 32 29 5d 29 0a 23 40 32 | 33 31 20 52 65 61 64 20 |2)]).#@2|31 Read |
|00002180| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 61 6e 20 69 |the name| of an i|
|00002190| 74 69 6d 65 72 20 66 72 | 6f 6d 20 74 68 65 20 6d |timer fr|om the m|
|000021a0| 69 6e 69 62 75 66 66 65 | 72 20 61 6e 64 20 72 65 |inibuffe|r and re|
|000021b0| 74 75 72 6e 20 74 68 65 | 20 69 74 69 6d 65 72 0a |turn the| itimer.|
|000021c0| 61 73 73 6f 63 69 61 74 | 65 64 20 77 69 74 68 20 |associat|ed with |
|000021d0| 74 68 61 74 20 6e 61 6d | 65 2e 20 20 54 68 65 20 |that nam|e. The |
|000021e0| 75 73 65 72 20 69 73 20 | 70 72 6f 6d 70 74 65 64 |user is |prompted|
|000021f0| 20 77 69 74 68 20 50 52 | 4f 4d 50 54 2e 0a 4f 70 | with PR|OMPT..Op|
|00002200| 74 69 6f 6e 61 6c 20 73 | 65 63 6f 6e 64 20 61 72 |tional s|econd ar|
|00002210| 67 20 49 4e 49 54 49 41 | 4c 2d 49 4e 50 55 54 20 |g INITIA|L-INPUT |
|00002220| 6e 6f 6e 2d 6e 69 6c 20 | 69 73 20 69 6e 73 65 72 |non-nil |is inser|
|00002230| 74 65 64 20 69 6e 74 6f | 20 74 68 65 0a 20 20 6d |ted into| the. m|
|00002240| 69 6e 69 62 75 66 66 65 | 72 20 61 73 20 69 6e 69 |inibuffe|r as ini|
|00002250| 74 69 61 6c 20 75 73 65 | 72 20 69 6e 70 75 74 2e |tial use|r input.|
|00002260| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 61 |..(defal|ias 'rea|
|00002270| 64 2d 69 74 69 6d 65 72 | 20 23 5b 28 70 72 6f 6d |d-itimer| #[(prom|
|00002280| 70 74 20 26 6f 70 74 69 | 6f 6e 61 6c 20 69 6e 69 |pt &opti|onal ini|
|00002290| 74 69 61 6c 2d 69 6e 70 | 75 74 29 20 22 c0 c1 5c |tial-inp|ut) "..\|
|000022a0| 6e 0b c4 c5 0e 06 25 21 | 87 22 20 5b 67 65 74 2d |n.....%!|." [get-|
|000022b0| 69 74 69 6d 65 72 20 63 | 6f 6d 70 6c 65 74 69 6e |itimer c|ompletin|
|000022c0| 67 2d 72 65 61 64 20 70 | 72 6f 6d 70 74 20 69 74 |g-read p|rompt it|
|000022d0| 69 6d 65 72 2d 6c 69 73 | 74 20 6e 69 6c 20 63 6f |imer-lis|t nil co|
|000022e0| 6e 66 69 72 6d 20 69 6e | 69 74 69 61 6c 2d 69 6e |nfirm in|itial-in|
|000022f0| 70 75 74 5d 20 37 20 28 | 23 24 20 2e 20 38 35 37 |put] 7 (|#$ . 857|
|00002300| 31 29 5d 29 0a 23 40 36 | 32 20 44 65 6c 65 74 65 |1)]).#@6|2 Delete|
|00002310| 73 20 49 54 49 4d 45 52 | 2e 20 20 49 54 49 4d 45 |s ITIMER|. ITIME|
|00002320| 52 20 6d 61 79 20 62 65 | 20 61 6e 20 69 74 69 6d |R may be| an itim|
|00002330| 65 72 20 6f 72 20 74 68 | 65 20 6e 61 6d 65 20 6f |er or th|e name o|
|00002340| 66 20 6f 6e 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 |f one...|(defalia|
|00002350| 73 20 27 64 65 6c 65 74 | 65 2d 69 74 69 6d 65 72 |s 'delet|e-itimer|
|00002360| 20 23 5b 28 69 74 69 6d | 65 72 29 20 22 c0 09 21 | #[(itim|er) "..!|
|00002370| ab 83 09 aa 8f 09 3b ab | 85 c2 09 21 aa 86 c3 c4 |......;.|...!....|
|00002380| c5 09 44 5c 22 11 c6 09 | 0e 07 5c 22 89 16 07 87 |..D\"...|..\"....|
|00002390| 22 20 5b 69 74 69 6d 65 | 72 70 20 69 74 69 6d 65 |" [itime|rp itime|
|000023a0| 72 20 67 65 74 2d 69 74 | 69 6d 65 72 20 73 69 67 |r get-it|imer sig|
|000023b0| 6e 61 6c 20 77 72 6f 6e | 67 2d 74 79 70 65 2d 61 |nal wron|g-type-a|
|000023c0| 72 67 75 6d 65 6e 74 20 | 73 74 72 69 6e 67 2d 6f |rgument |string-o|
|000023d0| 72 2d 69 74 69 6d 65 72 | 2d 70 20 64 65 6c 71 20 |r-itimer|-p delq |
|000023e0| 69 74 69 6d 65 72 2d 6c | 69 73 74 5d 20 34 20 28 |itimer-l|ist] 4 (|
|000023f0| 23 24 20 2e 20 38 39 37 | 30 29 5d 29 0a 23 40 31 |#$ . 897|0)]).#@1|
|00002400| 35 31 39 20 53 74 61 72 | 74 20 61 6e 20 69 74 69 |519 Star|t an iti|
|00002410| 6d 65 72 2e 0a 41 72 67 | 75 6d 65 6e 74 73 20 61 |mer..Arg|uments a|
|00002420| 72 65 0a 20 20 4e 41 4d | 45 2c 20 46 55 4e 43 54 |re. NAM|E, FUNCT|
|00002430| 49 4f 4e 2c 20 56 41 4c | 55 45 20 26 6f 70 74 69 |ION, VAL|UE &opti|
|00002440| 6f 6e 61 6c 20 52 45 53 | 54 41 52 54 2c 20 49 53 |onal RES|TART, IS|
|00002450| 2d 49 44 4c 45 2c 20 57 | 49 54 48 2d 41 52 47 53 |-IDLE, W|ITH-ARGS|
|00002460| 2c 20 26 72 65 73 74 20 | 46 55 4e 43 54 49 4f 4e |, &rest |FUNCTION|
|00002470| 2d 41 52 47 55 4d 45 4e | 54 53 2e 0a 4e 41 4d 45 |-ARGUMEN|TS..NAME|
|00002480| 20 69 73 20 61 6e 20 69 | 64 65 6e 74 69 66 69 65 | is an i|dentifie|
|00002490| 72 20 66 6f 72 20 74 68 | 65 20 69 74 69 6d 65 72 |r for th|e itimer|
|000024a0| 2e 20 20 49 74 20 6d 75 | 73 74 20 62 65 20 61 20 |. It mu|st be a |
|000024b0| 73 74 72 69 6e 67 2e 20 | 20 49 66 20 61 6e 20 69 |string. | If an i|
|000024c0| 74 69 6d 65 72 0a 20 20 | 61 6c 72 65 61 64 79 20 |timer. |already |
|000024d0| 65 78 69 73 74 73 20 77 | 69 74 68 20 74 68 69 73 |exists w|ith this|
|000024e0| 20 6e 61 6d 65 2c 20 4e | 41 4d 45 20 77 69 6c 6c | name, N|AME will|
|000024f0| 20 62 65 20 6d 6f 64 69 | 66 69 65 64 20 73 6c 69 | be modi|fied sli|
|00002500| 67 68 74 6c 79 20 74 6f | 20 75 6e 74 69 6c 0a 20 |ghtly to| until. |
|00002510| 20 69 74 20 69 73 20 75 | 6e 69 71 75 65 2e 0a 46 | it is u|nique..F|
|00002520| 55 4e 43 54 49 4f 4e 20 | 73 68 6f 75 6c 64 20 62 |UNCTION |should b|
|00002530| 65 20 61 20 66 75 6e 63 | 74 69 6f 6e 20 28 6f 72 |e a func|tion (or|
|00002540| 20 73 79 6d 62 6f 6c 20 | 6e 61 6d 69 6e 67 20 6f | symbol |naming o|
|00002550| 6e 65 29 2e 20 20 49 74 | 0a 20 20 77 69 6c 6c 20 |ne). It|. will |
|00002560| 62 65 20 63 61 6c 6c 65 | 64 20 65 61 63 68 20 74 |be calle|d each t|
|00002570| 69 6d 65 20 74 68 65 20 | 69 74 69 6d 65 72 20 65 |ime the |itimer e|
|00002580| 78 70 69 72 65 73 20 77 | 69 74 68 20 61 72 67 75 |xpires w|ith argu|
|00002590| 6d 65 6e 74 73 20 6f 66 | 0a 20 20 46 55 4e 43 54 |ments of|. FUNCT|
|000025a0| 49 4f 4e 2d 41 52 47 55 | 4d 45 4e 54 53 2e 20 20 |ION-ARGU|MENTS. |
|000025b0| 54 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 63 61 6e |The func|tion can|
|000025c0| 20 61 63 63 65 73 73 20 | 74 68 65 20 69 74 69 6d | access |the itim|
|000025d0| 65 72 20 74 68 61 74 0a | 20 20 69 6e 76 6f 6b 65 |er that.| invoke|
|000025e0| 64 20 69 74 20 74 68 72 | 6f 75 67 68 20 74 68 65 |d it thr|ough the|
|000025f0| 20 76 61 72 69 61 62 6c | 65 20 60 63 75 72 72 65 | variabl|e `curre|
|00002600| 6e 74 2d 69 74 69 6d 65 | 72 27 2e 20 20 49 66 20 |nt-itime|r'. If |
|00002610| 57 49 54 48 2d 41 52 47 | 53 0a 20 20 69 73 20 6e |WITH-ARG|S. is n|
|00002620| 69 6c 20 74 68 65 6e 20 | 46 55 4e 43 54 49 4f 4e |il then |FUNCTION|
|00002630| 20 69 73 20 63 61 6c 6c | 65 64 20 77 69 74 68 20 | is call|ed with |
|00002640| 6e 6f 20 61 72 67 75 6d | 65 6e 74 73 2e 20 20 54 |no argum|ents. T|
|00002650| 68 69 73 20 69 73 20 66 | 6f 72 0a 20 20 62 61 63 |his is f|or. bac|
|00002660| 6b 77 61 72 64 20 63 6f | 6d 70 61 74 69 62 69 6c |kward co|mpatibil|
|00002670| 69 74 79 20 77 69 74 68 | 20 6f 6c 64 65 72 20 76 |ity with| older v|
|00002680| 65 72 73 69 6f 6e 73 20 | 6f 66 20 74 68 65 20 69 |ersions |of the i|
|00002690| 74 69 6d 65 72 0a 20 20 | 70 61 63 6b 61 67 65 20 |timer. |package |
|000026a0| 77 68 69 63 68 20 61 6c | 77 61 79 73 20 63 61 6c |which al|ways cal|
|000026b0| 6c 65 64 20 46 55 4e 43 | 54 49 4f 4e 20 77 69 74 |led FUNC|TION wit|
|000026c0| 68 20 6e 6f 20 61 72 67 | 75 6d 65 6e 74 73 2e 0a |h no arg|uments..|
|000026d0| 56 41 4c 55 45 20 69 73 | 20 74 68 65 20 6e 75 6d |VALUE is| the num|
|000026e0| 62 65 72 20 6f 66 20 73 | 65 63 6f 6e 64 73 20 75 |ber of s|econds u|
|000026f0| 6e 74 69 6c 20 74 68 69 | 73 20 69 74 69 6d 65 72 |ntil thi|s itimer|
|00002700| 20 65 78 70 69 72 65 73 | 2e 0a 20 20 49 66 20 79 | expires|.. If y|
|00002710| 6f 75 72 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 45 |our vers|ion of E|
|00002720| 6d 61 63 73 20 73 75 70 | 70 6f 72 74 73 20 66 6c |macs sup|ports fl|
|00002730| 6f 61 74 69 6e 67 20 70 | 6f 69 6e 74 20 6e 75 6d |oating p|oint num|
|00002740| 62 65 72 73 20 74 68 65 | 6e 0a 20 20 79 6f 75 20 |bers the|n. you |
|00002750| 63 61 6e 20 56 41 4c 55 | 45 20 63 61 6e 20 62 65 |can VALU|E can be|
|00002760| 20 61 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e | a float|ing poin|
|00002770| 74 20 6e 75 6d 62 65 72 | 2e 20 20 4f 74 68 65 72 |t number|. Other|
|00002780| 77 69 73 65 20 69 74 0a | 20 20 6d 75 73 74 20 62 |wise it.| must b|
|00002790| 65 20 61 6e 20 69 6e 74 | 65 67 65 72 2e 0a 4f 70 |e an int|eger..Op|
|000027a0| 74 69 6f 6e 61 6c 20 66 | 6f 75 72 74 68 20 61 72 |tional f|ourth ar|
|000027b0| 67 20 52 45 53 54 41 52 | 54 20 6e 6f 6e 2d 6e 69 |g RESTAR|T non-ni|
|000027c0| 6c 20 6d 65 61 6e 73 20 | 74 68 61 74 20 74 68 69 |l means |that thi|
|000027d0| 73 20 69 74 69 6d 65 72 | 20 73 68 6f 75 6c 64 20 |s itimer| should |
|000027e0| 62 65 0a 20 20 72 65 73 | 74 61 72 74 65 64 20 61 |be. res|tarted a|
|000027f0| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 61 66 74 |utomatic|ally aft|
|00002800| 65 72 20 69 74 73 20 66 | 75 6e 63 74 69 6f 6e 20 |er its f|unction |
|00002810| 69 73 20 63 61 6c 6c 65 | 64 2e 20 20 4e 6f 72 6d |is calle|d. Norm|
|00002820| 61 6c 6c 79 20 61 6e 20 | 69 74 69 6d 65 72 0a 20 |ally an |itimer. |
|00002830| 20 69 73 20 64 65 6c 65 | 74 65 64 20 61 74 20 65 | is dele|ted at e|
|00002840| 78 70 69 72 61 74 69 6f | 6e 20 61 66 74 65 72 20 |xpiratio|n after |
|00002850| 69 74 73 20 66 75 6e 63 | 74 69 6f 6e 20 68 61 73 |its func|tion has|
|00002860| 20 72 65 74 75 72 6e 65 | 64 2e 20 0a 20 20 49 66 | returne|d. . If|
|00002870| 20 6e 6f 6e 2d 6e 69 6c | 20 52 45 53 54 41 52 54 | non-nil| RESTART|
|00002880| 20 73 68 6f 75 6c 64 20 | 62 65 20 61 20 6e 75 6d | should |be a num|
|00002890| 62 65 72 20 69 6e 64 69 | 63 61 74 69 6e 67 20 74 |ber indi|cating t|
|000028a0| 68 65 20 76 61 6c 75 65 | 20 61 74 20 77 68 69 63 |he value| at whic|
|000028b0| 68 20 74 68 65 0a 20 20 | 69 74 69 6d 65 72 20 73 |h the. |itimer s|
|000028c0| 68 6f 75 6c 64 20 62 65 | 20 73 65 74 20 61 74 20 |hould be| set at |
|000028d0| 72 65 73 74 61 72 74 20 | 74 69 6d 65 2e 0a 4f 70 |restart |time..Op|
|000028e0| 74 69 6f 6e 61 6c 20 66 | 69 66 74 68 20 61 72 67 |tional f|ifth arg|
|000028f0| 20 49 53 2d 49 44 4c 45 | 20 73 70 65 63 69 66 69 | IS-IDLE| specifi|
|00002900| 65 64 20 69 66 20 74 68 | 69 73 20 69 73 20 61 6e |ed if th|is is an|
|00002910| 20 69 64 6c 65 20 74 69 | 6d 65 72 2e 0a 20 20 4e | idle ti|mer.. N|
|00002920| 6f 72 6d 61 6c 20 74 69 | 6d 65 72 73 20 65 65 78 |ormal ti|mers eex|
|00002930| 70 69 72 65 20 61 66 74 | 65 72 20 61 20 73 65 74 |pire aft|er a set|
|00002940| 20 69 6e 74 65 72 76 61 | 6c 2e 20 20 49 64 6c 65 | interva|l. Idle|
|00002950| 20 74 69 6d 65 72 73 20 | 65 78 70 69 72 65 0a 20 | timers |expire. |
|00002960| 20 6f 6e 6c 79 20 61 66 | 74 65 72 20 45 6d 61 63 | only af|ter Emac|
|00002970| 73 20 68 61 73 20 62 65 | 65 6e 20 69 64 6c 65 20 |s has be|en idle |
|00002980| 66 6f 72 20 73 70 65 63 | 69 66 69 63 20 69 6e 74 |for spec|ific int|
|00002990| 65 72 76 61 6c 2e 20 20 | 60 60 49 64 6c 65 27 27 |erval. |``Idle''|
|000029a0| 0a 20 20 6d 65 61 6e 73 | 20 6e 6f 20 63 6f 6d 6d |. means| no comm|
|000029b0| 61 6e 64 20 65 76 65 6e | 74 73 20 77 69 74 68 69 |and even|ts withi|
|000029c0| 6e 20 74 68 65 20 69 6e | 74 65 72 76 61 6c 2e 0a |n the in|terval..|
|000029d0| 52 65 74 75 72 6e 73 20 | 74 68 65 20 6e 65 77 6c |Returns |the newl|
|000029e0| 79 20 63 72 65 61 74 65 | 64 20 69 74 69 6d 65 72 |y create|d itimer|
|000029f0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 74 |...(defa|lias 'st|
|00002a00| 61 72 74 2d 69 74 69 6d | 65 72 20 23 5b 28 6e 61 |art-itim|er #[(na|
|00002a10| 6d 65 20 66 75 6e 63 74 | 69 6f 6e 20 76 61 6c 75 |me funct|ion valu|
|00002a20| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 72 65 73 74 |e &optio|nal rest|
|00002a30| 61 72 74 20 69 73 2d 69 | 64 6c 65 20 77 69 74 68 |art is-i|dle with|
|00002a40| 2d 61 72 67 73 20 26 72 | 65 73 74 20 66 75 6e 63 |-args &r|est func|
|00002a50| 74 69 6f 6e 2d 61 72 67 | 75 6d 65 6e 74 73 29 20 |tion-arg|uments) |
|00002a60| 22 08 3b ab 83 08 aa 86 | c1 c2 c3 08 44 5c 22 10 |".;.....|....D\".|
|00002a70| 0c a7 ac 88 c1 c2 c5 0c | 44 5c 22 aa 8d 0c c6 57 |........|D\"....W|
|00002a80| ab 87 c1 c7 0c 43 5c 22 | aa 81 0c 14 0e 08 ab a0 |.....C\"|........|
|00002a90| 0e 08 a7 ac 89 c1 c2 c5 | 0e 08 44 5c 22 aa 90 0e |........|..D\"...|
|00002aa0| 08 c6 57 ab 88 c1 c7 0e | 08 43 5c 22 aa 82 0e 08 |..W.....|.C\"....|
|00002ab0| 16 08 08 c9 1e 5c 6e 1e | 0b cc 08 21 ab 8f 0e 0b |.....\n.|...!....|
|00002ac0| cd 0e 5c 6e ce 52 10 0e | 5c 6e 54 16 5c 6e aa 6c |..\n.R..|\nT.\n.l|
|00002ad0| 2a cf 08 0c 0e 08 0e 10 | 0e 11 0e 12 0e 13 c6 89 |*.......|........|
|00002ae0| 89 45 af 08 21 88 0e 14 | 40 87 22 20 5b 6e 61 6d |.E..!...|@." [nam|
|00002af0| 65 20 73 69 67 6e 61 6c | 20 77 72 6f 6e 67 2d 74 |e signal| wrong-t|
|00002b00| 79 70 65 2d 61 72 67 75 | 6d 65 6e 74 20 73 74 72 |ype-argu|ment str|
|00002b10| 69 6e 67 70 20 76 61 6c | 75 65 20 6e 61 74 6e 75 |ingp val|ue natnu|
|00002b20| 6d 70 20 30 20 61 72 67 | 73 2d 6f 75 74 2d 6f 66 |mp 0 arg|s-out-of|
|00002b30| 2d 72 61 6e 67 65 20 72 | 65 73 74 61 72 74 20 32 |-range r|estart 2|
|00002b40| 20 6e 75 6d 20 6f 6e 61 | 6d 65 20 67 65 74 2d 69 | num ona|me get-i|
|00002b50| 74 69 6d 65 72 20 22 3c | 22 20 22 3e 22 20 61 63 |timer "<|" ">" ac|
|00002b60| 74 69 76 61 74 65 2d 69 | 74 69 6d 65 72 20 66 75 |tivate-i|timer fu|
|00002b70| 6e 63 74 69 6f 6e 20 69 | 73 2d 69 64 6c 65 20 77 |nction i|s-idle w|
|00002b80| 69 74 68 2d 61 72 67 73 | 20 66 75 6e 63 74 69 6f |ith-args| functio|
|00002b90| 6e 2d 61 72 67 75 6d 65 | 6e 74 73 20 69 74 69 6d |n-argume|nts itim|
|00002ba0| 65 72 2d 6c 69 73 74 5d | 20 31 31 20 28 23 24 20 |er-list]| 11 (#$ |
|00002bb0| 2e 20 39 32 32 30 29 20 | 28 6c 69 73 74 20 28 63 |. 9220) |(list (c|
|00002bc0| 6f 6d 70 6c 65 74 69 6e | 67 2d 72 65 61 64 20 22 |ompletin|g-read "|
|00002bd0| 53 74 61 72 74 20 69 74 | 69 6d 65 72 3a 20 22 20 |Start it|imer: " |
|00002be0| 69 74 69 6d 65 72 2d 6c | 69 73 74 29 20 28 72 65 |itimer-l|ist) (re|
|00002bf0| 61 64 20 28 63 6f 6d 70 | 6c 65 74 69 6e 67 2d 72 |ad (comp|leting-r|
|00002c00| 65 61 64 20 22 49 74 69 | 6d 65 72 20 66 75 6e 63 |ead "Iti|mer func|
|00002c10| 74 69 6f 6e 3a 20 22 20 | 6f 62 61 72 72 61 79 20 |tion: " |obarray |
|00002c20| 27 66 62 6f 75 6e 64 70 | 29 29 20 28 6c 65 74 20 |'fboundp|)) (let |
|00002c30| 28 76 61 6c 75 65 29 20 | 28 77 68 69 6c 65 20 28 |(value) |(while (|
|00002c40| 6f 72 20 28 6e 6f 74 20 | 28 6e 75 6d 62 65 72 70 |or (not |(numberp|
|00002c50| 20 76 61 6c 75 65 29 29 | 20 28 3c 20 76 61 6c 75 | value))| (< valu|
|00002c60| 65 20 30 29 29 20 28 73 | 65 74 71 20 76 61 6c 75 |e 0)) (s|etq valu|
|00002c70| 65 20 28 72 65 61 64 2d | 66 72 6f 6d 2d 6d 69 6e |e (read-|from-min|
|00002c80| 69 62 75 66 66 65 72 20 | 22 49 74 69 6d 65 72 20 |ibuffer |"Itimer |
|00002c90| 76 61 6c 75 65 3a 20 22 | 20 6e 69 6c 20 6e 69 6c |value: "| nil nil|
|00002ca0| 20 74 29 29 29 20 76 61 | 6c 75 65 29 20 28 6c 65 | t))) va|lue) (le|
|00002cb0| 74 20 28 28 72 65 73 74 | 61 72 74 20 74 29 29 20 |t ((rest|art t)) |
|00002cc0| 28 77 68 69 6c 65 20 28 | 61 6e 64 20 72 65 73 74 |(while (|and rest|
|00002cd0| 61 72 74 20 28 6f 72 20 | 28 6e 6f 74 20 28 6e 75 |art (or |(not (nu|
|00002ce0| 6d 62 65 72 70 20 72 65 | 73 74 61 72 74 29 29 20 |mberp re|start)) |
|00002cf0| 28 3c 20 72 65 73 74 61 | 72 74 20 30 29 29 29 20 |(< resta|rt 0))) |
|00002d00| 28 73 65 74 71 20 72 65 | 73 74 61 72 74 20 28 72 |(setq re|start (r|
|00002d10| 65 61 64 2d 66 72 6f 6d | 2d 6d 69 6e 69 62 75 66 |ead-from|-minibuf|
|00002d20| 66 65 72 20 22 49 74 69 | 6d 65 72 20 72 65 73 74 |fer "Iti|mer rest|
|00002d30| 61 72 74 3a 20 22 20 6e | 69 6c 20 6e 69 6c 20 74 |art: " n|il nil t|
|00002d40| 29 29 29 20 72 65 73 74 | 61 72 74 29 20 6e 69 6c |))) rest|art) nil|
|00002d50| 20 6e 69 6c 29 5d 29 0a | 23 40 32 37 33 20 43 72 | nil)]).|#@273 Cr|
|00002d60| 65 61 74 65 20 61 6e 20 | 75 6e 61 63 74 69 76 61 |eate an |unactiva|
|00002d70| 74 65 64 20 69 74 69 6d | 65 72 2e 0a 54 68 65 20 |ted itim|er..The |
|00002d80| 69 74 69 6d 65 72 20 77 | 69 6c 6c 20 6e 6f 74 20 |itimer w|ill not |
|00002d90| 62 65 67 69 6e 20 72 75 | 6e 6e 69 6e 67 20 75 6e |begin ru|nning un|
|00002da0| 74 69 6c 20 61 63 74 69 | 76 61 74 65 64 20 77 69 |til acti|vated wi|
|00002db0| 74 68 20 60 61 63 74 69 | 76 61 74 65 2d 69 74 69 |th `acti|vate-iti|
|00002dc0| 6d 65 72 27 2e 0a 53 65 | 74 20 74 68 65 20 69 74 |mer'..Se|t the it|
|00002dd0| 69 6d 65 72 27 73 20 65 | 78 70 69 72 65 20 69 6e |imer's e|xpire in|
|00002de0| 74 65 72 76 61 6c 20 77 | 69 74 68 20 60 73 65 74 |terval w|ith `set|
|00002df0| 2d 69 74 69 6d 65 72 2d | 76 61 6c 75 65 27 2e 0a |-itimer-|value'..|
|00002e00| 53 65 74 20 74 68 65 20 | 69 74 69 6d 65 72 27 73 |Set the |itimer's|
|00002e10| 20 66 75 6e 63 74 69 6f | 6e 20 69 6e 74 65 72 76 | functio|n interv|
|00002e20| 61 6c 20 77 69 74 68 20 | 60 73 65 74 2d 69 74 69 |al with |`set-iti|
|00002e30| 6d 65 72 2d 66 75 6e 63 | 74 69 6f 6e 27 2e 0a 4f |mer-func|tion'..O|
|00002e40| 6e 63 65 20 74 68 69 73 | 20 69 73 20 64 6f 6e 65 |nce this| is done|
|00002e50| 2c 20 74 68 65 20 74 69 | 6d 65 72 20 63 61 6e 20 |, the ti|mer can |
|00002e60| 62 65 20 61 63 74 69 76 | 61 74 65 64 2e 1f 0a 28 |be activ|ated...(|
|00002e70| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 6b 65 2d 69 |defalias| 'make-i|
|00002e80| 74 69 6d 65 72 20 23 5b | 6e 69 6c 20 22 c0 c1 c0 |timer #[|nil "...|
|00002e90| c2 c0 89 89 c1 89 89 45 | af 08 87 22 20 5b 6e 69 |.......E|..." [ni|
|00002ea0| 6c 20 30 20 69 67 6e 6f | 72 65 5d 20 31 30 20 28 |l 0 igno|re] 10 (|
|00002eb0| 23 24 20 2e 20 31 31 36 | 31 34 29 5d 29 0a 23 40 |#$ . 116|14)]).#@|
|00002ec0| 31 38 33 20 41 63 74 69 | 76 61 74 65 20 49 54 49 |183 Acti|vate ITI|
|00002ed0| 4d 45 52 2c 20 77 68 69 | 63 68 20 77 61 73 20 70 |MER, whi|ch was p|
|00002ee0| 72 65 76 69 6f 75 73 6c | 79 20 63 72 65 61 74 65 |reviousl|y create|
|00002ef0| 64 20 77 69 74 68 20 60 | 6d 61 6b 65 2d 69 74 69 |d with `|make-iti|
|00002f00| 6d 65 72 27 2e 0a 49 54 | 49 4d 45 52 20 77 69 6c |mer'..IT|IMER wil|
|00002f10| 6c 20 62 65 20 61 64 64 | 65 64 20 74 6f 20 74 68 |l be add|ed to th|
|00002f20| 65 20 67 6c 6f 62 61 6c | 20 6c 69 73 74 20 6f 66 |e global| list of|
|00002f30| 20 72 75 6e 6e 69 6e 67 | 20 69 74 69 6d 65 72 73 | running| itimers|
|00002f40| 2c 0a 69 74 73 20 46 55 | 4e 43 54 49 4f 4e 20 77 |,.its FU|NCTION w|
|00002f50| 69 6c 6c 20 62 65 20 63 | 61 6c 6c 65 64 20 77 68 |ill be c|alled wh|
|00002f60| 65 6e 20 69 74 20 65 78 | 70 69 72 65 73 2c 20 61 |en it ex|pires, a|
|00002f70| 6e 64 20 73 6f 20 6f 6e | 2e 1f 0a 28 64 65 66 61 |nd so on|...(defa|
|00002f80| 6c 69 61 73 20 27 61 63 | 74 69 76 61 74 65 2d 69 |lias 'ac|tivate-i|
|00002f90| 74 69 6d 65 72 20 23 5b | 28 69 74 69 6d 65 72 29 |timer #[|(itimer)|
|00002fa0| 20 22 c0 09 21 ab 83 09 | aa 86 c2 c3 c0 09 44 5c | "..!...|......D\|
|00002fb0| 22 89 11 0c 73 ab 84 c5 | c6 21 88 c7 09 21 a7 ac |"...s...|.!...!..|
|00002fc0| 87 c5 c8 c7 09 21 5c 22 | 88 c7 09 21 c9 58 ab 87 |.....!\"|...!.X..|
|00002fd0| c5 ca c7 09 21 5c 22 88 | 0e 0b ac 84 0e 0c ab 85 |....!\".|........|
|00002fe0| cd 20 88 aa 83 ce 20 88 | 09 40 3b ac a7 cf d0 d1 |. .... .|.@;.....|
|00002ff0| 1e 12 1e 13 1e 14 d5 0e | 14 21 ab 90 0e 13 d6 0e |........|.!......|
|00003000| 12 d7 52 16 14 0e 12 54 | 16 12 aa 6a 09 0e 14 a0 |..R....T|...j....|
|00003010| 88 2b aa 8e d5 d8 09 21 | 21 ab 87 c5 d9 d8 09 21 |.+.....!|!......!|
|00003020| 5c 22 88 da 1e 1b 09 0c | 42 14 c7 09 21 0e 1c 57 |\"......|B...!..W|
|00003030| ad 82 cd 20 29 87 22 20 | 5b 69 74 69 6d 65 72 70 |... )." |[itimerp|
|00003040| 20 69 74 69 6d 65 72 20 | 73 69 67 6e 61 6c 20 77 | itimer |signal w|
|00003050| 72 6f 6e 67 2d 74 79 70 | 65 2d 61 72 67 75 6d 65 |rong-typ|e-argume|
|00003060| 6e 74 20 69 74 69 6d 65 | 72 2d 6c 69 73 74 20 65 |nt itime|r-list e|
|00003070| 72 72 6f 72 20 22 69 74 | 69 6d 65 72 20 61 6c 72 |rror "it|imer alr|
|00003080| 65 61 64 79 20 61 63 74 | 69 76 61 74 65 64 22 20 |eady act|ivated" |
|00003090| 69 74 69 6d 65 72 2d 76 | 61 6c 75 65 20 22 69 74 |itimer-v|alue "it|
|000030a0| 69 6d 65 72 20 74 69 6d | 65 6f 75 74 20 76 61 6c |imer tim|eout val|
|000030b0| 75 65 20 6e 6f 74 20 61 | 20 6e 75 6d 62 65 72 3a |ue not a| number:|
|000030c0| 20 25 73 22 20 30 20 22 | 69 74 69 6d 65 72 20 74 | %s" 0 "|itimer t|
|000030d0| 69 6d 65 6f 75 74 20 76 | 61 6c 75 65 20 6e 6f 74 |imeout v|alue not|
|000030e0| 20 70 6f 73 69 74 69 76 | 65 3a 20 25 73 22 20 69 | positiv|e: %s" i|
|000030f0| 74 69 6d 65 72 2d 70 72 | 6f 63 65 73 73 20 69 74 |timer-pr|ocess it|
|00003100| 69 6d 65 72 2d 74 69 6d | 65 72 20 69 74 69 6d 65 |imer-tim|er itime|
|00003110| 72 2d 64 72 69 76 65 72 | 2d 77 61 6b 65 75 70 20 |r-driver|-wakeup |
|00003120| 69 74 69 6d 65 72 2d 64 | 72 69 76 65 72 2d 73 74 |itimer-d|river-st|
|00003130| 61 72 74 20 22 69 74 69 | 6d 65 72 2d 30 22 20 22 |art "iti|mer-0" "|
|00003140| 69 74 69 6d 65 72 2d 22 | 20 31 20 6e 75 6d 20 6f |itimer-"| 1 num o|
|00003150| 6e 61 6d 65 20 6e 61 6d | 65 20 67 65 74 2d 69 74 |name nam|e get-it|
|00003160| 69 6d 65 72 20 22 3c 22 | 20 22 3e 22 20 69 74 69 |imer "<"| ">" iti|
|00003170| 6d 65 72 2d 6e 61 6d 65 | 20 22 69 74 69 6d 65 72 |mer-name| "itimer|
|00003180| 20 6e 61 6d 65 64 20 5c | 22 25 73 5c 22 20 61 6c | named \|"%s\" al|
|00003190| 72 65 61 64 79 20 65 78 | 69 73 74 69 6e 67 20 61 |ready ex|isting a|
|000031a0| 6e 64 20 61 63 74 69 76 | 61 74 65 64 22 20 74 20 |nd activ|ated" t |
|000031b0| 69 6e 68 69 62 69 74 2d | 71 75 69 74 20 69 74 69 |inhibit-|quit iti|
|000031c0| 6d 65 72 2d 6e 65 78 74 | 2d 77 61 6b 65 75 70 5d |mer-next|-wakeup]|
|000031d0| 20 35 20 28 23 24 20 2e | 20 31 31 39 37 32 29 5d | 5 (#$ .| 11972)]|
|000031e0| 29 0a 23 40 32 32 36 20 | 50 6f 70 20 75 70 20 61 |).#@226 |Pop up a|
|000031f0| 20 62 75 66 66 65 72 20 | 63 6f 6e 74 61 69 6e 69 | buffer |containi|
|00003200| 6e 67 20 61 20 6c 69 73 | 74 20 6f 66 20 61 6c 6c |ng a lis|t of all|
|00003210| 20 69 74 69 6d 65 72 73 | 2e 0a 54 68 65 20 6d 61 | itimers|..The ma|
|00003220| 6a 6f 72 20 6d 6f 64 65 | 20 6f 66 20 74 68 65 20 |jor mode| of the |
|00003230| 62 75 66 66 65 72 20 69 | 73 20 49 74 69 6d 65 72 |buffer i|s Itimer|
|00003240| 20 45 64 69 74 20 6d 6f | 64 65 2e 20 20 54 68 69 | Edit mo|de. Thi|
|00003250| 73 20 6d 61 6a 6f 72 20 | 6d 6f 64 65 20 70 72 6f |s major |mode pro|
|00003260| 76 69 64 65 73 0a 63 6f | 6d 6d 61 6e 64 73 20 74 |vides.co|mmands t|
|00003270| 6f 20 6d 61 6e 69 70 75 | 6c 61 74 65 20 69 74 69 |o manipu|late iti|
|00003280| 6d 65 72 73 3b 20 73 65 | 65 20 74 68 65 20 64 6f |mers; se|e the do|
|00003290| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 66 6f 72 0a |cumentat|ion for.|
|000032a0| 60 69 74 69 6d 65 72 2d | 65 64 69 74 2d 6d 6f 64 |`itimer-|edit-mod|
|000032b0| 65 27 20 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |e' for m|ore info|
|000032c0| 72 6d 61 74 69 6f 6e 2e | 1f 0a 28 64 65 66 61 6c |rmation.|..(defal|
|000032d0| 69 61 73 20 27 6c 69 73 | 74 2d 69 74 69 6d 65 72 |ias 'lis|t-itimer|
|000032e0| 73 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 1a 60 1b 5c |s #[nil |"..!.`.\|
|000032f0| 6e 1c c5 0e 06 21 1e 07 | 5c 6e 71 88 c8 20 88 c9 |n....!..|\nq.. ..|
|00003300| 16 5c 6e cb 20 88 cc cd | ce b1 03 88 0e 0f ac 83 |.\n. ...|........|
|00003310| 60 16 0f 0e 07 ab ee d0 | d1 21 88 d2 d3 0e 07 40 |`.......|.!.....@|
|00003320| 21 21 88 d4 20 88 d5 d6 | d7 d8 0e 07 40 21 5c 22 |!!.. ...|....@!\"|
|00003330| d9 5c 22 63 88 d4 20 88 | d5 d6 d7 da 0e 07 40 21 |.\"c.. .|......@!|
|00003340| 5c 22 d9 5c 22 63 88 d4 | 20 88 d5 d6 db dc 0e 07 |\".\"c..| .......|
|00003350| 40 21 5c 22 dd 5c 22 63 | 88 d4 20 88 de 0e 07 40 |@!\".\"c|.. ....@|
|00003360| 21 ab 85 df 63 88 aa 83 | e0 63 88 d4 20 88 e1 0e |!...c...|.c.. ...|
|00003370| 07 40 21 ab 8a d2 e2 0e | 07 40 21 21 88 aa 84 d2 |.@!.....|.@!!....|
|00003380| e3 21 88 0e 07 41 89 16 | 07 ac 12 0b 62 88 60 0e |.!...A..|....b.`.|
|00003390| 0f 57 ab 84 0e 0f 62 88 | e4 16 5c 6e e5 5c 6e 21 |.W....b.|..\n.\n!|
|000033a0| 2c 87 22 20 5b 67 65 74 | 2d 62 75 66 66 65 72 2d |,." [get|-buffer-|
|000033b0| 63 72 65 61 74 65 20 22 | 2a 49 74 69 6d 65 72 20 |create "|*Itimer |
|000033c0| 4c 69 73 74 2a 22 20 62 | 75 66 20 6f 70 6f 69 6e |List*" b|uf opoin|
|000033d0| 74 20 73 74 61 6e 64 61 | 72 64 2d 6f 75 74 70 75 |t standa|rd-outpu|
|000033e0| 74 20 72 65 76 65 72 73 | 65 20 69 74 69 6d 65 72 |t revers|e itimer|
|000033f0| 2d 6c 69 73 74 20 69 74 | 69 6d 65 72 73 20 69 74 |-list it|imers it|
|00003400| 69 6d 65 72 2d 65 64 69 | 74 2d 6d 6f 64 65 20 6e |imer-edi|t-mode n|
|00003410| 69 6c 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |il buffe|r-read-o|
|00003420| 6e 6c 79 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |nly eras|e-buffer|
|00003430| 20 22 4e 61 6d 65 20 20 | 20 20 20 20 20 20 20 20 | "Name | |
|00003440| 20 20 20 20 20 20 20 20 | 56 61 6c 75 65 20 20 20 | |Value |
|00003450| 52 65 73 74 61 72 74 20 | 20 20 46 75 6e 63 74 69 |Restart | Functi|
|00003460| 6f 6e 20 20 20 20 20 20 | 20 20 20 20 20 20 49 64 |on | Id|
|00003470| 6c 65 20 20 20 41 72 67 | 75 6d 65 6e 74 73 22 20 |le Arg|uments" |
|00003480| 22 5c 6e 22 20 22 2d 2d | 2d 2d 20 20 20 20 20 20 |"\n" "--|-- |
|00003490| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 2d 2d 2d | | ----|
|000034a0| 2d 20 20 20 2d 2d 2d 2d | 2d 2d 2d 20 20 20 2d 2d |- ----|--- --|
|000034b0| 2d 2d 2d 2d 2d 2d 20 20 | 20 20 20 20 20 20 20 20 |------ | |
|000034c0| 20 20 2d 2d 2d 2d 20 20 | 20 2d 2d 2d 2d 2d 2d 2d | ---- | -------|
|000034d0| 2d 22 20 69 74 69 6d 65 | 72 2d 65 64 69 74 2d 73 |-" itime|r-edit-s|
|000034e0| 74 61 72 74 2d 6d 61 72 | 6b 65 72 20 6e 65 77 6c |tart-mar|ker newl|
|000034f0| 69 6e 65 20 31 20 70 72 | 69 6e 31 20 69 74 69 6d |ine 1 pr|in1 itim|
|00003500| 65 72 2d 6e 61 6d 65 20 | 74 61 62 2d 74 6f 2d 74 |er-name |tab-to-t|
|00003510| 61 62 2d 73 74 6f 70 20 | 69 74 69 6d 65 72 2d 74 |ab-stop |itimer-t|
|00003520| 72 75 6e 63 61 74 65 2d | 73 74 72 69 6e 67 20 66 |runcate-|string f|
|00003530| 6f 72 6d 61 74 20 22 25 | 35 2e 35 73 22 20 69 74 |ormat "%|5.5s" it|
|00003540| 69 6d 65 72 2d 76 61 6c | 75 65 20 35 20 69 74 69 |imer-val|ue 5 iti|
|00003550| 6d 65 72 2d 72 65 73 74 | 61 72 74 20 22 25 2e 31 |mer-rest|art "%.1|
|00003560| 39 73 22 20 69 74 69 6d | 65 72 2d 66 75 6e 63 74 |9s" itim|er-funct|
|00003570| 69 6f 6e 20 31 39 20 69 | 74 69 6d 65 72 2d 69 73 |ion 19 i|timer-is|
|00003580| 2d 69 64 6c 65 20 22 79 | 65 73 22 20 22 6e 6f 22 |-idle "y|es" "no"|
|00003590| 20 69 74 69 6d 65 72 2d | 75 73 65 73 2d 61 72 67 | itimer-|uses-arg|
|000035a0| 75 6d 65 6e 74 73 20 69 | 74 69 6d 65 72 2d 66 75 |uments i|timer-fu|
|000035b0| 6e 63 74 69 6f 6e 2d 61 | 72 67 75 6d 65 6e 74 73 |nction-a|rguments|
|000035c0| 20 4e 4f 4e 45 20 74 20 | 64 69 73 70 6c 61 79 2d | NONE t |display-|
|000035d0| 62 75 66 66 65 72 5d 20 | 36 20 28 23 24 20 2e 20 |buffer] |6 (#$ . |
|000035e0| 31 32 37 37 36 29 20 6e | 69 6c 5d 29 0a 23 40 32 |12776) n|il]).#@2|
|000035f0| 35 35 20 44 69 73 70 6c | 61 79 20 61 20 6c 69 73 |55 Displ|ay a lis|
|00003600| 74 20 6f 66 20 61 6c 6c | 20 69 74 69 6d 65 72 73 |t of all| itimers|
|00003610| 20 61 6e 64 20 73 65 6c | 65 63 74 20 69 74 20 66 | and sel|ect it f|
|00003620| 6f 72 20 65 64 69 74 69 | 6e 67 2e 0a 54 68 65 20 |or editi|ng..The |
|00003630| 6d 61 6a 6f 72 20 6d 6f | 64 65 20 6f 66 20 74 68 |major mo|de of th|
|00003640| 65 20 62 75 66 66 65 72 | 20 63 6f 6e 74 61 69 6e |e buffer| contain|
|00003650| 69 6e 67 20 74 68 65 20 | 6c 69 73 74 69 6e 67 20 |ing the |listing |
|00003660| 69 73 20 49 74 69 6d 65 | 72 20 45 64 69 74 20 6d |is Itime|r Edit m|
|00003670| 6f 64 65 2e 0a 54 68 69 | 73 20 6d 61 6a 6f 72 20 |ode..Thi|s major |
|00003680| 6d 6f 64 65 20 70 72 6f | 76 69 64 65 73 20 63 6f |mode pro|vides co|
|00003690| 6d 6d 61 6e 64 73 20 74 | 6f 20 6d 61 6e 69 70 75 |mmands t|o manipu|
|000036a0| 6c 61 74 65 20 69 74 69 | 6d 65 72 73 3b 20 73 65 |late iti|mers; se|
|000036b0| 65 20 74 68 65 20 64 6f | 63 75 6d 65 6e 74 61 74 |e the do|cumentat|
|000036c0| 69 6f 6e 0a 66 6f 72 20 | 60 69 74 69 6d 65 72 2d |ion.for |`itimer-|
|000036d0| 65 64 69 74 2d 6d 6f 64 | 65 27 20 66 6f 72 20 6d |edit-mod|e' for m|
|000036e0| 6f 72 65 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 2e |ore info|rmation.|
|000036f0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 64 69 |..(defal|ias 'edi|
|00003700| 74 2d 69 74 69 6d 65 72 | 73 20 23 5b 6e 69 6c 20 |t-itimer|s #[nil |
|00003710| 22 08 ac 83 09 ab 83 c2 | 20 88 c3 20 88 c4 c5 c6 |".......| .. ....|
|00003720| 21 21 88 0e 07 62 88 0e | 08 ab 87 c9 ca 21 88 cb |!!...b..|.....!..|
|00003730| 20 88 cc cd 21 87 22 20 | 5b 69 74 69 6d 65 72 2d | ...!." |[itimer-|
|00003740| 70 72 6f 63 65 73 73 20 | 69 74 69 6d 65 72 2d 74 |process |itimer-t|
|00003750| 69 6d 65 72 20 69 74 69 | 6d 65 72 2d 64 72 69 76 |imer iti|mer-driv|
|00003760| 65 72 2d 77 61 6b 65 75 | 70 20 6c 69 73 74 2d 69 |er-wakeu|p list-i|
|00003770| 74 69 6d 65 72 73 20 73 | 65 6c 65 63 74 2d 77 69 |timers s|elect-wi|
|00003780| 6e 64 6f 77 20 67 65 74 | 2d 62 75 66 66 65 72 2d |ndow get|-buffer-|
|00003790| 77 69 6e 64 6f 77 20 22 | 2a 49 74 69 6d 65 72 20 |window "|*Itimer |
|000037a0| 4c 69 73 74 2a 22 20 69 | 74 69 6d 65 72 2d 65 64 |List*" i|timer-ed|
|000037b0| 69 74 2d 73 74 61 72 74 | 2d 6d 61 72 6b 65 72 20 |it-start|-marker |
|000037c0| 69 74 69 6d 65 72 2d 6c | 69 73 74 20 66 6f 72 77 |itimer-l|ist forw|
|000037d0| 61 72 64 2d 73 65 78 70 | 20 32 20 62 61 63 6b 77 |ard-sexp| 2 backw|
|000037e0| 61 72 64 2d 73 65 78 70 | 20 6d 65 73 73 61 67 65 |ard-sexp| message|
|000037f0| 20 22 74 79 70 65 20 71 | 20 74 6f 20 71 75 69 74 | "type q| to quit|
|00003800| 2c 20 3f 20 66 6f 72 20 | 68 65 6c 70 22 5d 20 33 |, ? for |help"] 3|
|00003810| 20 28 23 24 20 2e 20 31 | 33 38 31 31 29 20 6e 69 | (#$ . 1|3811) ni|
|00003820| 6c 5d 29 0a 23 40 33 38 | 32 20 4d 61 6a 6f 72 20 |l]).#@38|2 Major |
|00003830| 6d 6f 64 65 20 66 6f 72 | 20 6d 61 6e 69 70 75 6c |mode for| manipul|
|00003840| 61 74 69 6e 67 20 69 74 | 69 6d 65 72 73 2e 0a 41 |ating it|imers..A|
|00003850| 74 74 72 69 62 75 74 65 | 73 20 6f 66 20 72 75 6e |ttribute|s of run|
|00003860| 6e 69 6e 67 20 69 74 69 | 6d 65 72 73 20 61 72 65 |ning iti|mers are|
|00003870| 20 63 68 61 6e 67 65 64 | 20 62 79 20 6d 6f 76 69 | changed| by movi|
|00003880| 6e 67 20 74 68 65 20 63 | 75 72 73 6f 72 20 74 6f |ng the c|ursor to|
|00003890| 20 74 68 65 0a 64 65 73 | 69 72 65 64 20 66 69 65 | the.des|ired fie|
|000038a0| 6c 64 20 61 6e 64 20 74 | 79 70 69 6e 67 20 60 73 |ld and t|yping `s|
|000038b0| 27 20 74 6f 20 73 65 74 | 20 74 68 61 74 20 66 69 |' to set| that fi|
|000038c0| 65 6c 64 2e 20 20 54 68 | 65 20 66 69 65 6c 64 20 |eld. Th|e field |
|000038d0| 77 69 6c 6c 20 74 68 65 | 6e 20 62 65 0a 73 65 74 |will the|n be.set|
|000038e0| 20 74 6f 20 74 68 65 20 | 76 61 6c 75 65 20 72 65 | to the |value re|
|000038f0| 61 64 20 66 72 6f 6d 20 | 74 68 65 20 6d 69 6e 69 |ad from |the mini|
|00003900| 62 75 66 66 65 72 2e 0a | 0a 43 6f 6d 6d 61 6e 64 |buffer..|.Command|
|00003910| 73 3a 0a 54 41 42 20 20 | 20 20 6d 6f 76 65 20 66 |s:.TAB | move f|
|00003920| 6f 72 77 61 72 64 20 61 | 20 66 69 65 6c 64 0a 44 |orward a| field.D|
|00003930| 45 4c 20 20 20 20 6d 6f | 76 65 20 62 61 63 6b 77 |EL mo|ve backw|
|00003940| 61 72 64 20 61 20 66 69 | 65 6c 64 0a 73 20 20 20 |ard a fi|eld.s |
|00003950| 20 20 20 73 65 74 20 61 | 20 66 69 65 6c 64 0a 64 | set a| field.d|
|00003960| 20 20 20 20 20 20 64 65 | 6c 65 74 65 20 74 68 65 | de|lete the|
|00003970| 20 73 65 6c 65 63 74 65 | 64 20 69 74 69 6d 65 72 | selecte|d itimer|
|00003980| 0a 78 20 20 20 20 20 20 | 73 74 61 72 74 20 61 20 |.x |start a |
|00003990| 6e 65 77 20 69 74 69 6d | 65 72 0a 3f 20 20 20 20 |new itim|er.? |
|000039a0| 20 20 68 65 6c 70 1f 0a | 28 64 65 66 61 6c 69 61 | help..|(defalia|
|000039b0| 73 20 27 69 74 69 6d 65 | 72 2d 65 64 69 74 2d 6d |s 'itime|r-edit-m|
|000039c0| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 c2 |ode #[ni|l ". ...|
|000039d0| 21 88 c3 14 c5 16 06 c7 | 16 08 c9 12 ca cb 21 88 |!.......|......!.|
|000039e0| cc cb 21 88 cd 70 21 88 | ce 0e 0f 21 88 d0 0e 11 |..!..p!.|...!....|
|000039f0| 21 87 22 20 5b 6b 69 6c | 6c 2d 61 6c 6c 2d 6c 6f |!." [kil|l-all-lo|
|00003a00| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 73 20 6d 61 |cal-vari|ables ma|
|00003a10| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00003a20| 65 20 74 61 62 2d 73 74 | 6f 70 2d 6c 69 73 74 20 |e tab-st|op-list |
|00003a30| 69 74 69 6d 65 72 2d 65 | 64 69 74 2d 6d 6f 64 65 |itimer-e|dit-mode|
|00003a40| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 22 49 74 69 | major-m|ode "Iti|
|00003a50| 6d 65 72 20 45 64 69 74 | 22 20 6d 6f 64 65 2d 6e |mer Edit|" mode-n|
|00003a60| 61 6d 65 20 74 20 74 72 | 75 6e 63 61 74 65 2d 6c |ame t tr|uncate-l|
|00003a70| 69 6e 65 73 20 28 32 32 | 20 33 32 20 34 30 20 36 |ines (22| 32 40 6|
|00003a80| 30 20 36 37 29 20 61 62 | 62 72 65 76 2d 6d 6f 64 |0 67) ab|brev-mod|
|00003a90| 65 20 30 20 61 75 74 6f | 2d 66 69 6c 6c 2d 6d 6f |e 0 auto|-fill-mo|
|00003aa0| 64 65 20 62 75 66 66 65 | 72 2d 64 69 73 61 62 6c |de buffe|r-disabl|
|00003ab0| 65 2d 75 6e 64 6f 20 75 | 73 65 2d 6c 6f 63 61 6c |e-undo u|se-local|
|00003ac0| 2d 6d 61 70 20 69 74 69 | 6d 65 72 2d 65 64 69 74 |-map iti|mer-edit|
|00003ad0| 2d 6d 61 70 20 73 65 74 | 2d 73 79 6e 74 61 78 2d |-map set|-syntax-|
|00003ae0| 74 61 62 6c 65 20 65 6d | 61 63 73 2d 6c 69 73 70 |table em|acs-lisp|
|00003af0| 2d 6d 6f 64 65 2d 73 79 | 6e 74 61 78 2d 74 61 62 |-mode-sy|ntax-tab|
|00003b00| 6c 65 5d 20 32 20 28 23 | 24 20 2e 20 31 34 33 37 |le] 2 (#|$ . 1437|
|00003b10| 38 29 5d 29 0a 28 70 75 | 74 20 27 69 74 69 6d 65 |8)]).(pu|t 'itime|
|00003b20| 72 2d 65 64 69 74 2d 6d | 6f 64 65 20 27 6d 6f 64 |r-edit-m|ode 'mod|
|00003b30| 65 2d 63 6c 61 73 73 20 | 27 73 70 65 63 69 61 6c |e-class |'special|
|00003b40| 29 0a 23 40 33 32 20 48 | 65 6c 70 20 66 75 6e 63 |).#@32 H|elp func|
|00003b50| 74 69 6f 6e 20 66 6f 72 | 20 49 74 69 6d 65 72 20 |tion for| Itimer |
|00003b60| 45 64 69 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |Edit...(|defalias|
|00003b70| 20 27 69 74 69 6d 65 72 | 2d 65 64 69 74 2d 68 65 | 'itimer|-edit-he|
|00003b80| 6c 70 20 23 5b 6e 69 6c | 20 22 08 c1 61 ab 83 c2 |lp #[nil| "..a...|
|00003b90| 20 87 c3 c4 21 87 22 20 | 5b 6c 61 73 74 2d 63 6f | ...!." |[last-co|
|00003ba0| 6d 6d 61 6e 64 20 69 74 | 69 6d 65 72 2d 65 64 69 |mmand it|imer-edi|
|00003bb0| 74 2d 68 65 6c 70 20 64 | 65 73 63 72 69 62 65 2d |t-help d|escribe-|
|00003bc0| 6d 6f 64 65 20 6d 65 73 | 73 61 67 65 20 22 54 41 |mode mes|sage "TA|
|00003bd0| 42 2c 20 44 45 4c 20 73 | 65 6c 65 63 74 20 66 69 |B, DEL s|elect fi|
|00003be0| 65 6c 64 73 2c 20 28 73 | 29 65 74 20 66 69 65 6c |elds, (s|)et fiel|
|00003bf0| 64 2c 20 28 64 29 65 6c | 65 74 65 20 69 74 69 6d |d, (d)el|ete itim|
|00003c00| 65 72 20 20 20 28 74 79 | 70 65 20 3f 20 66 6f 72 |er (ty|pe ? for|
|00003c10| 20 6d 6f 72 65 20 68 65 | 6c 70 29 22 5d 20 32 20 | more he|lp)"] 2 |
|00003c20| 28 23 24 20 2e 20 31 35 | 31 37 35 29 20 6e 69 6c |(#$ . 15|175) nil|
|00003c30| 5d 29 0a 23 40 31 38 20 | 45 6e 64 20 49 74 69 6d |]).#@18 |End Itim|
|00003c40| 65 72 20 45 64 69 74 2e | 1f 0a 28 64 65 66 61 6c |er Edit.|..(defal|
|00003c50| 69 61 73 20 27 69 74 69 | 6d 65 72 2d 65 64 69 74 |ias 'iti|mer-edit|
|00003c60| 2d 71 75 69 74 20 23 5b | 6e 69 6c 20 22 c0 70 21 |-quit #[|nil ".p!|
|00003c70| 88 c1 c2 21 ab 86 c3 c4 | 70 21 21 87 c5 20 87 22 |...!....|p!!.. ."|
|00003c80| 20 5b 62 75 72 79 2d 62 | 75 66 66 65 72 20 6f 6e | [bury-b|uffer on|
|00003c90| 65 2d 77 69 6e 64 6f 77 | 2d 70 20 74 20 73 77 69 |e-window|-p t swi|
|00003ca0| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 20 6f 74 |tch-to-b|uffer ot|
|00003cb0| 68 65 72 2d 62 75 66 66 | 65 72 20 64 65 6c 65 74 |her-buff|er delet|
|00003cc0| 65 2d 77 69 6e 64 6f 77 | 5d 20 33 20 28 23 24 20 |e-window|] 3 (#$ |
|00003cd0| 2e 20 31 35 34 31 36 29 | 20 6e 69 6c 5d 29 0a 28 |. 15416)| nil]).(|
|00003ce0| 64 65 66 61 6c 69 61 73 | 20 27 69 74 69 6d 65 72 |defalias| 'itimer|
|00003cf0| 2d 65 64 69 74 2d 73 65 | 74 2d 66 69 65 6c 64 20 |-edit-se|t-field |
|00003d00| 23 5b 6e 69 6c 20 22 60 | 08 58 ab 84 c1 c2 21 88 |#[nil "`|.X....!.|
|00003d10| c3 89 c2 1c 1d 1e 06 8a | c7 79 88 c8 c9 70 21 21 |........|.y...p!!|
|00003d20| 29 16 06 8a ca 20 88 60 | c7 1e 0b 1e 0c c7 79 88 |).... .`|......y.|
|00003d30| 0e 0c 60 59 ab 94 0e 0b | cd 57 ab 8e ce cf 21 88 |..`Y....|.W....!.|
|00003d40| d0 20 88 0e 0b 54 16 0b | aa 66 0e 0b d1 61 ab 85 |. ...T..|.f...a..|
|00003d50| c1 d2 21 aa a5 0e 0b cf | 61 ab 83 d3 aa 9c 0e 0b |..!.....|a.......|
|00003d60| d4 61 ab 83 d5 aa 93 0e | 0b d6 61 ab 83 d7 aa 8a |.a......|..a.....|
|00003d70| 0e 0b d8 61 ab 83 d9 aa | 81 da 2b 89 15 d3 61 ab |...a....|..+...a.|
|00003d80| 95 db 1e 1c dd 0c 21 ac | 8a de 0e 1c c3 89 df 24 |......!.|.......$|
|00003d90| 14 aa 71 29 aa fd 0d d5 | 61 ab 99 e0 1e 1c 0c ab |..q)....|a.......|
|00003da0| 90 dd 0c 21 ac 8b de 0e | 1c c3 89 df 24 89 14 ac |...!....|....$...|
|00003db0| 70 29 aa df 0d d7 61 ab | a7 e1 1e 1c 0c 39 ab 85 |p)....a.|.....9..|
|00003dc0| e2 0c 21 ac 98 0c 3a ab | 86 0c 40 e3 73 ac 8e c9 |..!...:.|..@.s...|
|00003dd0| e4 0e 1c 0e 25 e2 c3 24 | 21 89 14 aa 60 29 aa b3 |....%..$|!...`)..|
|00003de0| 0d d9 61 ab 88 e6 0e 06 | 21 3f 14 aa a6 0d da 61 |..a.....|!?.....a|
|00003df0| ab a1 e7 1e 1c e8 0e 1c | 21 89 14 3c ac 83 0c 43 |........|!..<...C|
|00003e00| 14 0c ac 88 e9 0e 06 c3 | 5c 22 88 aa 86 e9 0e 06 |........|\"......|
|00003e10| df 5c 22 88 29 ea eb ec | 0d 21 50 21 0e 06 0c 5c |.\".)...|.!P!...\|
|00003e20| 22 88 ca 20 88 c3 89 1e | 2d 1e 2e ef d1 21 88 f0 |".. ....|-....!..|
|00003e30| 60 f1 c3 77 88 60 5c 22 | 88 f2 0c 70 5c 22 88 6c |`..w.`\"|...p\".l|
|00003e40| ac 83 f3 20 88 d0 20 2d | 87 22 20 5b 69 74 69 6d |... .. -|." [itim|
|00003e50| 65 72 2d 65 64 69 74 2d | 73 74 61 72 74 2d 6d 61 |er-edit-|start-ma|
|00003e60| 72 6b 65 72 20 65 72 72 | 6f 72 20 22 22 20 6e 69 |rker err|or "" ni|
|00003e70| 6c 20 66 69 65 6c 64 2d | 76 61 6c 75 65 20 66 69 |l field-|value fi|
|00003e80| 65 6c 64 20 69 74 69 6d | 65 72 20 30 20 67 65 74 |eld itim|er 0 get|
|00003e90| 2d 69 74 69 6d 65 72 20 | 72 65 61 64 20 69 74 69 |-itimer |read iti|
|00003ea0| 6d 65 72 2d 65 64 69 74 | 2d 62 65 67 69 6e 6e 69 |mer-edit|-beginni|
|00003eb0| 6e 67 2d 6f 66 2d 66 69 | 65 6c 64 20 6e 20 6f 70 |ng-of-fi|eld n op|
|00003ec0| 6f 69 6e 74 20 36 20 66 | 6f 72 77 61 72 64 2d 73 |oint 6 f|orward-s|
|00003ed0| 65 78 70 20 32 20 62 61 | 63 6b 77 61 72 64 2d 73 |exp 2 ba|ckward-s|
|00003ee0| 65 78 70 20 31 20 22 43 | 61 6e 6e 6f 74 20 63 68 |exp 1 "C|annot ch|
|00003ef0| 61 6e 67 65 20 69 74 69 | 6d 65 72 20 6e 61 6d 65 |ange iti|mer name|
|00003f00| 2e 22 20 76 61 6c 75 65 | 20 33 20 72 65 73 74 61 |." value| 3 resta|
|00003f10| 72 74 20 34 20 66 75 6e | 63 74 69 6f 6e 20 35 20 |rt 4 fun|ction 5 |
|00003f20| 69 73 2d 69 64 6c 65 20 | 66 75 6e 63 74 69 6f 6e |is-idle |function|
|00003f30| 2d 61 72 67 75 6d 65 6e | 74 20 22 53 65 74 20 69 |-argumen|t "Set i|
|00003f40| 74 69 6d 65 72 20 76 61 | 6c 75 65 3a 20 22 20 70 |timer va|lue: " p|
|00003f50| 72 6f 6d 70 74 20 6e 61 | 74 6e 75 6d 70 20 72 65 |rompt na|tnump re|
|00003f60| 61 64 2d 66 72 6f 6d 2d | 6d 69 6e 69 62 75 66 66 |ad-from-|minibuff|
|00003f70| 65 72 20 74 20 22 53 65 | 74 20 69 74 69 6d 65 72 |er t "Se|t itimer|
|00003f80| 20 72 65 73 74 61 72 74 | 3a 20 22 20 22 53 65 74 | restart|: " "Set|
|00003f90| 20 69 74 69 6d 65 72 20 | 66 75 6e 63 74 69 6f 6e | itimer |function|
|00003fa0| 3a 20 22 20 66 62 6f 75 | 6e 64 70 20 28 6c 61 6d |: " fbou|ndp (lam|
|00003fb0| 62 64 61 20 6d 61 63 72 | 6f 29 20 63 6f 6d 70 6c |bda macr|o) compl|
|00003fc0| 65 74 69 6e 67 2d 72 65 | 61 64 20 6f 62 61 72 72 |eting-re|ad obarr|
|00003fd0| 61 79 20 69 74 69 6d 65 | 72 2d 69 73 2d 69 64 6c |ay itime|r-is-idl|
|00003fe0| 65 20 22 53 65 74 20 69 | 74 69 6d 65 72 20 66 75 |e "Set i|timer fu|
|00003ff0| 6e 63 74 69 6f 6e 20 61 | 72 67 75 6d 65 6e 74 3a |nction a|rgument:|
|00004000| 20 22 20 72 65 61 64 2d | 65 78 70 72 65 73 73 69 | " read-|expressi|
|00004010| 6f 6e 20 73 65 74 2d 69 | 74 69 6d 65 72 2d 75 73 |on set-i|timer-us|
|00004020| 65 73 2d 61 72 67 75 6d | 65 6e 74 73 20 69 6e 74 |es-argum|ents int|
|00004030| 65 72 6e 20 22 73 65 74 | 2d 69 74 69 6d 65 72 2d |ern "set|-itimer-|
|00004040| 22 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 6b 69 |" symbol|-name ki|
|00004050| 6c 6c 2d 72 69 6e 67 20 | 62 75 66 66 65 72 2d 72 |ll-ring |buffer-r|
|00004060| 65 61 64 2d 6f 6e 6c 79 | 20 6b 69 6c 6c 2d 73 65 |ead-only| kill-se|
|00004070| 78 70 20 6b 69 6c 6c 2d | 72 65 67 69 6f 6e 20 22 |xp kill-|region "|
|00004080| 20 09 22 20 70 72 69 6e | 31 20 74 61 62 2d 74 6f | ." prin|1 tab-to|
|00004090| 2d 74 61 62 2d 73 74 6f | 70 5d 20 37 20 6e 69 6c |-tab-sto|p] 7 nil|
|000040a0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|000040b0| 20 27 69 74 69 6d 65 72 | 2d 65 64 69 74 2d 64 65 | 'itimer|-edit-de|
|000040c0| 6c 65 74 65 2d 69 74 69 | 6d 65 72 20 23 5b 6e 69 |lete-iti|mer #[ni|
|000040d0| 6c 20 22 60 08 58 ab 84 | c1 c2 21 88 c3 c4 c5 8a |l "`.X..|..!.....|
|000040e0| c6 79 88 c7 70 21 29 5c | 22 21 88 c8 20 87 22 20 |.y..p!)\|"!.. ." |
|000040f0| 5b 69 74 69 6d 65 72 2d | 65 64 69 74 2d 73 74 61 |[itimer-|edit-sta|
|00004100| 72 74 2d 6d 61 72 6b 65 | 72 20 65 72 72 6f 72 20 |rt-marke|r error |
|00004110| 22 22 20 64 65 6c 65 74 | 65 2d 69 74 69 6d 65 72 |"" delet|e-itimer|
|00004120| 20 72 65 61 64 2d 69 74 | 69 6d 65 72 20 22 44 65 | read-it|imer "De|
|00004130| 6c 65 74 65 20 69 74 69 | 6d 65 72 3a 20 22 20 30 |lete iti|mer: " 0|
|00004140| 20 72 65 61 64 20 6c 69 | 73 74 2d 69 74 69 6d 65 | read li|st-itime|
|00004150| 72 73 5d 20 35 20 6e 69 | 6c 20 6e 69 6c 5d 29 0a |rs] 5 ni|l nil]).|
|00004160| 28 64 65 66 61 6c 69 61 | 73 20 27 69 74 69 6d 65 |(defalia|s 'itime|
|00004170| 72 2d 65 64 69 74 2d 6e | 65 78 74 2d 66 69 65 6c |r-edit-n|ext-fiel|
|00004180| 64 20 23 5b 28 63 6f 75 | 6e 74 29 20 22 c0 20 88 |d #[(cou|nt) ". .|
|00004190| 09 c2 56 ab 83 c3 aa 89 | 09 c2 55 ab 83 c2 aa 81 |..V.....|..U.....|
|000041a0| c4 c2 56 ab a9 09 c2 55 | 3f ad d9 c5 20 88 6d ab |..V....U|?... .m.|
|000041b0| 87 0e 06 62 88 c5 20 88 | c5 20 88 c7 20 88 6e ab |...b.. .|. .. .n.|
|000041c0| 87 c5 c8 21 88 c7 20 88 | 09 53 89 11 aa 58 09 c2 |...!.. .|.S...X..|
|000041d0| 56 ab 83 c3 aa 89 09 c2 | 55 ab 83 c2 aa 81 c4 c2 |V.......|U.......|
|000041e0| 57 ad a1 09 c2 55 3f ad | 9b c7 20 88 6e ab 83 c7 |W....U?.|.. .n...|
|000041f0| 20 88 60 0e 06 58 ab 86 | 64 62 88 c7 20 88 09 54 | .`..X..|db.. ..T|
|00004200| 89 11 aa 60 87 22 20 5b | 69 74 69 6d 65 72 2d 65 |...`." [|itimer-e|
|00004210| 64 69 74 2d 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |dit-begi|nning-of|
|00004220| 2d 66 69 65 6c 64 20 63 | 6f 75 6e 74 20 30 20 31 |-field c|ount 0 1|
|00004230| 20 2d 31 20 66 6f 72 77 | 61 72 64 2d 73 65 78 70 | -1 forw|ard-sexp|
|00004240| 20 69 74 69 6d 65 72 2d | 65 64 69 74 2d 73 74 61 | itimer-|edit-sta|
|00004250| 72 74 2d 6d 61 72 6b 65 | 72 20 62 61 63 6b 77 61 |rt-marke|r backwa|
|00004260| 72 64 2d 73 65 78 70 20 | 32 5d 20 33 20 6e 69 6c |rd-sexp |2] 3 nil|
|00004270| 20 22 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "p"]).(|defalias|
|00004280| 20 27 69 74 69 6d 65 72 | 2d 65 64 69 74 2d 70 72 | 'itimer|-edit-pr|
|00004290| 65 76 69 6f 75 73 2d 66 | 69 65 6c 64 20 23 5b 28 |evious-f|ield #[(|
|000042a0| 63 6f 75 6e 74 29 20 22 | c0 09 5b 21 87 22 20 5b |count) "|..[!." [|
|000042b0| 69 74 69 6d 65 72 2d 65 | 64 69 74 2d 6e 65 78 74 |itimer-e|dit-next|
|000042c0| 2d 66 69 65 6c 64 20 63 | 6f 75 6e 74 5d 20 32 20 |-field c|ount] 2 |
|000042d0| 6e 69 6c 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |nil "p"]|).(defal|
|000042e0| 69 61 73 20 27 69 74 69 | 6d 65 72 2d 65 64 69 74 |ias 'iti|mer-edit|
|000042f0| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 66 69 |-beginni|ng-of-fi|
|00004300| 65 6c 64 20 23 5b 6e 69 | 6c 20 22 8a c0 20 88 c1 |eld #[ni|l ".. ..|
|00004310| 20 88 60 29 8a c1 20 88 | 60 29 1a 89 1b 5c 6e 61 | .`).. .|`)...\na|
|00004320| ab 84 c1 20 aa 8a 0b 60 | 61 ab 83 c4 aa 82 c1 20 |... ...`|a...... |
|00004330| 2a 87 22 20 5b 66 6f 72 | 77 61 72 64 2d 73 65 78 |*." [for|ward-sex|
|00004340| 70 20 62 61 63 6b 77 61 | 72 64 2d 73 65 78 70 20 |p backwa|rd-sexp |
|00004350| 62 61 63 6b 20 66 6f 72 | 77 2d 62 61 63 6b 20 74 |back for|w-back t|
|00004360| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|00004370| 27 69 74 69 6d 65 72 2d | 74 72 75 6e 63 61 74 65 |'itimer-|truncate|
|00004380| 2d 73 74 72 69 6e 67 20 | 23 5b 28 73 74 72 20 6c |-string |#[(str l|
|00004390| 65 6e 29 20 22 08 47 09 | 58 ab 82 08 87 08 c2 09 |en) ".G.|X.......|
|000043a0| 4f 87 22 20 5b 73 74 72 | 20 6c 65 6e 20 30 5d 20 |O." [str| len 0] |
|000043b0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |3]).(def|alias 'i|
|000043c0| 74 69 6d 65 72 2d 72 75 | 6e 2d 65 78 70 69 72 65 |timer-ru|n-expire|
|000043d0| 64 2d 74 69 6d 65 72 73 | 20 23 5b 28 74 69 6d 65 |d-timers| #[(time|
|000043e0| 2d 65 6c 61 70 73 65 64 | 29 20 22 c0 09 21 c2 c3 |-elapsed|) "..!..|
|000043f0| c2 89 89 c4 1d 1e 06 1e | 07 1e 08 1e 09 1e 5c 6e |........|......\n|
|00004400| 1e 0b c3 16 09 cc cd 21 | ab 99 0e 0d 3a ab 94 0e |.......!|....:...|
|00004410| 0d 40 0e 0d 41 ce 45 16 | 07 cf d0 20 0e 07 5c 22 |.@..A.E.|... ..\"|
|00004420| 16 08 aa 86 d1 16 07 ce | 16 08 0e 0b 83 d1 00 0e |........|........|
|00004430| 0b 40 16 5c 6e d2 0e 5c | 6e 21 ab 88 d3 0e 5c 6e |.@.\n..\|n!....\n|
|00004440| 21 16 06 aa 8e d4 0e 5c | 6e ce d5 0e 5c 6e 21 0e |!......\|n...\n!.|
|00004450| 16 5a 5d 5c 22 88 d2 0e | 5c 6e 21 ab 93 cf 0e 06 |.Z]\"...|\n!.....|
|00004460| 0e 07 5c 22 ce 56 ac 91 | 0e 08 d5 0e 5c 6e 21 57 |..\".V..|....\n!W|
|00004470| aa 86 d5 0e 5c 6e 21 ce | 56 ab af d2 0e 5c 6e 21 |....\n!.|V....\n!|
|00004480| ab 9e 0e 08 d5 0e 5c 6e | 21 57 ab 8c 0e 09 d5 0e |......\n|!W......|
|00004490| 5c 6e 21 0e 08 5a 5e aa | 90 0e 09 d5 0e 5c 6e 21 |\n!..Z^.|.....\n!|
|000044a0| 5e aa 87 0e 09 d5 0e 5c | 6e 21 5e 16 09 aa 95 d2 |^......\|n!^.....|
|000044b0| 0e 5c 6e 21 ab 87 d7 0e | 5c 6e d0 20 5c 22 88 d8 |.\n!....|\n. \"..|
|000044c0| 8e d9 da db 8f 88 29 0e | 0b 41 89 16 0b 84 42 00 |......).|.A....B.|
|000044d0| 0e 1c dd 61 ab 83 de 20 | 88 0e 09 2e 07 87 22 20 |...a... |......" |
|000044e0| 5b 63 6f 70 79 2d 73 65 | 71 75 65 6e 63 65 20 69 |[copy-se|quence i|
|000044f0| 74 69 6d 65 72 2d 6c 69 | 73 74 20 6e 69 6c 20 36 |timer-li|st nil 6|
|00004500| 30 30 20 74 20 69 6e 68 | 69 62 69 74 2d 71 75 69 |00 t inh|ibit-qui|
|00004510| 74 20 72 65 63 6f 72 64 | 65 64 2d 72 75 6e 2d 74 |t record|ed-run-t|
|00004520| 69 6d 65 20 6c 61 73 74 | 2d 65 76 65 6e 74 2d 74 |ime last|-event-t|
|00004530| 69 6d 65 20 69 64 6c 65 | 2d 74 69 6d 65 20 6e 65 |ime idle|-time ne|
|00004540| 78 74 2d 77 61 6b 65 75 | 70 20 69 74 69 6d 65 72 |xt-wakeu|p itimer|
|00004550| 20 69 74 69 6d 65 72 73 | 20 62 6f 75 6e 64 70 20 | itimers| boundp |
|00004560| 6c 61 73 74 2d 69 6e 70 | 75 74 2d 74 69 6d 65 20 |last-inp|ut-time |
|00004570| 30 20 69 74 69 6d 65 72 | 2d 74 69 6d 65 2d 64 69 |0 itimer|-time-di|
|00004580| 66 66 65 72 65 6e 63 65 | 20 63 75 72 72 65 6e 74 |fference| current|
|00004590| 2d 74 69 6d 65 20 28 30 | 20 30 20 30 29 20 69 74 |-time (0| 0 0) it|
|000045a0| 69 6d 65 72 2d 69 73 2d | 69 64 6c 65 20 69 74 69 |imer-is-|idle iti|
|000045b0| 6d 65 72 2d 72 65 63 6f | 72 64 65 64 2d 72 75 6e |mer-reco|rded-run|
|000045c0| 2d 74 69 6d 65 20 73 65 | 74 2d 69 74 69 6d 65 72 |-time se|t-itimer|
|000045d0| 2d 76 61 6c 75 65 2d 69 | 6e 74 65 72 6e 61 6c 20 |-value-i|nternal |
|000045e0| 69 74 69 6d 65 72 2d 76 | 61 6c 75 65 20 74 69 6d |itimer-v|alue tim|
|000045f0| 65 2d 65 6c 61 70 73 65 | 64 20 73 65 74 2d 69 74 |e-elapse|d set-it|
|00004600| 69 6d 65 72 2d 72 65 63 | 6f 72 64 65 64 2d 72 75 |imer-rec|orded-ru|
|00004610| 6e 2d 74 69 6d 65 20 28 | 28 62 79 74 65 2d 63 6f |n-time (|(byte-co|
|00004620| 64 65 20 22 c0 09 21 ac | 86 c2 09 21 88 aa 8d c3 |de "..!.|...!....|
|00004630| 09 c0 09 21 5c 22 88 0c | c5 09 21 5e 14 c0 87 22 |...!\"..|..!^..."|
|00004640| 20 5b 69 74 69 6d 65 72 | 2d 72 65 73 74 61 72 74 | [itimer|-restart|
|00004650| 20 69 74 69 6d 65 72 20 | 64 65 6c 65 74 65 2d 69 | itimer |delete-i|
|00004660| 74 69 6d 65 72 20 73 65 | 74 2d 69 74 69 6d 65 72 |timer se|t-itimer|
|00004670| 2d 76 61 6c 75 65 2d 69 | 6e 74 65 72 6e 61 6c 20 |-value-i|nternal |
|00004680| 6e 65 78 74 2d 77 61 6b | 65 75 70 20 69 74 69 6d |next-wak|eup itim|
|00004690| 65 72 2d 76 61 6c 75 65 | 5d 20 34 29 29 20 63 6f |er-value|] 4)) co|
|000046a0| 6e 64 69 74 69 6f 6e 2d | 64 61 74 61 20 28 62 79 |ndition-|data (by|
|000046b0| 74 65 2d 63 6f 64 65 20 | 22 c0 20 19 c2 8e 0b 1c |te-code |". .....|
|000046c0| c5 1e 06 c5 1e 07 c5 1e | 08 c5 1b c5 1e 09 c5 1e |........|........|
|000046d0| 5c 6e cb 0c 21 ab 8b cc | cd 0c 21 ce 0c 21 5c 22 |\n..!...|..!..!\"|
|000046e0| 88 aa 85 cd 0c 21 20 88 | 2e 09 c5 87 22 20 5b 6d |.....! .|...." [m|
|000046f0| 61 74 63 68 2d 64 61 74 | 61 20 6d 61 74 63 68 2d |atch-dat|a match-|
|00004700| 64 61 74 61 20 28 28 73 | 74 6f 72 65 2d 6d 61 74 |data ((s|tore-mat|
|00004710| 63 68 2d 64 61 74 61 20 | 6d 61 74 63 68 2d 64 61 |ch-data |match-da|
|00004720| 74 61 29 29 20 69 74 69 | 6d 65 72 20 63 75 72 72 |ta)) iti|mer curr|
|00004730| 65 6e 74 2d 69 74 69 6d | 65 72 20 6e 69 6c 20 71 |ent-itim|er nil q|
|00004740| 75 69 74 2d 66 6c 61 67 | 20 69 6e 68 69 62 69 74 |uit-flag| inhibit|
|00004750| 2d 71 75 69 74 20 74 68 | 69 73 2d 63 6f 6d 6d 61 |-quit th|is-comma|
|00004760| 6e 64 20 69 74 69 6d 65 | 72 73 20 74 69 6d 65 2d |nd itime|rs time-|
|00004770| 65 6c 61 70 73 65 64 20 | 69 74 69 6d 65 72 2d 75 |elapsed |itimer-u|
|00004780| 73 65 73 2d 61 72 67 75 | 6d 65 6e 74 73 20 61 70 |ses-argu|ments ap|
|00004790| 70 6c 79 20 69 74 69 6d | 65 72 2d 66 75 6e 63 74 |ply itim|er-funct|
|000047a0| 69 6f 6e 20 69 74 69 6d | 65 72 2d 66 75 6e 63 74 |ion itim|er-funct|
|000047b0| 69 6f 6e 2d 61 72 67 75 | 6d 65 6e 74 73 5d 20 34 |ion-argu|ments] 4|
|000047c0| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|000047d0| 63 6f 64 65 20 22 c0 c1 | c2 0b 21 c4 0d 21 23 87 |code "..|..!..!#.|
|000047e0| 22 20 5b 6d 65 73 73 61 | 67 65 20 22 69 74 69 6d |" [messa|ge "itim|
|000047f0| 65 72 20 5c 22 25 73 5c | 22 20 73 69 67 6e 61 6c |er \"%s\|" signal|
|00004800| 65 64 3a 20 25 73 22 20 | 69 74 69 6d 65 72 2d 6e |ed: %s" |itimer-n|
|00004810| 61 6d 65 20 69 74 69 6d | 65 72 20 70 72 69 6e 31 |ame itim|er prin1|
|00004820| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 63 6f 6e 64 69 |-to-stri|ng condi|
|00004830| 74 69 6f 6e 2d 64 61 74 | 61 5d 20 35 29 29 20 28 |tion-dat|a] 5)) (|
|00004840| 71 75 69 74 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |quit (by|te-code |
|00004850| 22 c0 c1 c2 0b 21 5c 22 | 87 22 20 5b 6d 65 73 73 |"....!\"|." [mess|
|00004860| 61 67 65 20 22 69 74 69 | 6d 65 72 20 5c 22 25 73 |age "iti|mer \"%s|
|00004870| 5c 22 20 71 75 69 74 22 | 20 69 74 69 6d 65 72 2d |\" quit"| itimer-|
|00004880| 6e 61 6d 65 20 69 74 69 | 6d 65 72 5d 20 34 29 29 |name iti|mer] 4))|
|00004890| 29 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 69 74 69 |) major-|mode iti|
|000048a0| 6d 65 72 2d 65 64 69 74 | 2d 6d 6f 64 65 20 6c 69 |mer-edit|-mode li|
|000048b0| 73 74 2d 69 74 69 6d 65 | 72 73 5d 20 38 5d 29 0a |st-itime|rs] 8]).|
|000048c0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 74 69 6d 65 |(defalia|s 'itime|
|000048d0| 72 2d 70 72 6f 63 65 73 | 73 2d 66 69 6c 74 65 72 |r-proces|s-filter|
|000048e0| 20 23 5b 28 70 72 6f 63 | 65 73 73 20 73 74 72 69 | #[(proc|ess stri|
|000048f0| 6e 67 29 20 22 c0 c1 5c | 6e 5c 22 ac 8b c3 c4 5c |ng) "..\|n\"....\|
|00004900| 6e 5c 22 88 c5 0e 06 c7 | 5c 22 87 0e 08 ab 94 c9 |n\".....|\"......|
|00004910| 1e 5c 6e cb 8e cc cd 5c | 6e 21 21 16 5c 6e 29 0e |.\n....\|n!!.\n).|
|00004920| 5c 6e 16 0e 29 aa 83 cf | 16 0e c5 0e 06 d0 0e 0e |\n..)...|........|
|00004930| 21 d1 50 5c 22 87 22 20 | 5b 73 74 72 69 6e 67 2d |!.P\"." |[string-|
|00004940| 6d 61 74 63 68 20 22 5e | 5b 30 2d 39 5d 22 20 73 |match "^|[0-9]" s|
|00004950| 74 72 69 6e 67 20 6d 65 | 73 73 61 67 65 20 22 69 |tring me|ssage "i|
|00004960| 74 69 6d 65 72 20 70 72 | 6f 63 65 73 73 20 67 61 |timer pr|ocess ga|
|00004970| 76 65 20 6f 64 64 20 6f | 75 74 70 75 74 3a 20 25 |ve odd o|utput: %|
|00004980| 73 22 20 70 72 6f 63 65 | 73 73 2d 73 65 6e 64 2d |s" proce|ss-send-|
|00004990| 73 74 72 69 6e 67 20 69 | 74 69 6d 65 72 2d 70 72 |string i|timer-pr|
|000049a0| 6f 63 65 73 73 20 22 33 | 5c 6e 22 20 69 74 69 6d |ocess "3|\n" itim|
|000049b0| 65 72 2d 6c 69 73 74 20 | 6e 69 6c 20 77 61 6b 65 |er-list |nil wake|
|000049c0| 75 70 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |up ((byt|e-code "|
|000049d0| 08 ac 85 c1 5c 6e c3 5c | 22 88 c1 87 22 20 5b 77 |....\n.\|"..." [w|
|000049e0| 61 6b 65 75 70 20 70 72 | 6f 63 65 73 73 2d 73 65 |akeup pr|ocess-se|
|000049f0| 6e 64 2d 73 74 72 69 6e | 67 20 70 72 6f 63 65 73 |nd-strin|g proces|
|00004a00| 73 20 22 31 5c 6e 22 5d | 20 33 29 29 20 69 74 69 |s "1\n"]| 3)) iti|
|00004a10| 6d 65 72 2d 72 75 6e 2d | 65 78 70 69 72 65 64 2d |mer-run-|expired-|
|00004a20| 74 69 6d 65 72 73 20 73 | 74 72 69 6e 67 2d 74 6f |timers s|tring-to|
|00004a30| 2d 69 6e 74 20 69 74 69 | 6d 65 72 2d 6e 65 78 74 |-int iti|mer-next|
|00004a40| 2d 77 61 6b 65 75 70 20 | 36 30 30 20 69 6e 74 2d |-wakeup |600 int-|
|00004a50| 74 6f 2d 73 74 72 69 6e | 67 20 22 5c 6e 22 5d 20 |to-strin|g "\n"] |
|00004a60| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |4]).(def|alias 'i|
|00004a70| 74 69 6d 65 72 2d 70 72 | 6f 63 65 73 73 2d 73 65 |timer-pr|ocess-se|
|00004a80| 6e 74 69 6e 65 6c 20 23 | 5b 28 70 72 6f 63 65 73 |ntinel #|[(proces|
|00004a90| 73 20 6d 65 73 73 61 67 | 65 29 20 22 c0 19 c2 0b |s messag|e) "....|
|00004aa0| 21 c4 61 ab 85 c5 0b 21 | aa 9a c6 0b 21 88 c7 16 |!.a....!|....!...|
|00004ab0| 08 0e 09 ad 8f ca cb 21 | 88 cc cd 0e 0c ce cf 4f |.......!|.......O|
|00004ac0| 5c 22 88 d0 20 29 87 22 | 20 5b 74 20 69 6e 68 69 |\".. )."| [t inhi|
|00004ad0| 62 69 74 2d 71 75 69 74 | 20 70 72 6f 63 65 73 73 |bit-quit| process|
|00004ae0| 2d 73 74 61 74 75 73 20 | 70 72 6f 63 65 73 73 20 |-status |process |
|00004af0| 73 74 6f 70 20 63 6f 6e | 74 69 6e 75 65 2d 70 72 |stop con|tinue-pr|
|00004b00| 6f 63 65 73 73 20 64 65 | 6c 65 74 65 2d 70 72 6f |ocess de|lete-pro|
|00004b10| 63 65 73 73 20 6e 69 6c | 20 69 74 69 6d 65 72 2d |cess nil| itimer-|
|00004b20| 70 72 6f 63 65 73 73 20 | 69 74 69 6d 65 72 2d 6c |process |itimer-l|
|00004b30| 69 73 74 20 73 69 74 2d | 66 6f 72 20 32 20 6d 65 |ist sit-|for 2 me|
|00004b40| 73 73 61 67 65 20 22 69 | 74 69 6d 65 72 20 70 72 |ssage "i|timer pr|
|00004b50| 6f 63 65 73 73 20 25 73 | 2e 2e 2e 20 72 65 73 70 |ocess %s|... resp|
|00004b60| 61 77 6e 69 6e 67 2e 22 | 20 30 20 2d 31 20 69 74 |awning."| 0 -1 it|
|00004b70| 69 6d 65 72 2d 70 72 6f | 63 65 73 73 2d 73 74 61 |imer-pro|cess-sta|
|00004b80| 72 74 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |rt] 5]).|(defalia|
|00004b90| 73 20 27 69 74 69 6d 65 | 72 2d 70 72 6f 63 65 73 |s 'itime|r-proces|
|00004ba0| 73 2d 73 74 61 72 74 20 | 23 5b 6e 69 6c 20 22 c0 |s-start |#[nil ".|
|00004bb0| c1 1a 1b c4 c5 c1 c5 23 | 16 06 c7 0e 06 21 88 c8 |.......#|.....!..|
|00004bc0| 0e 06 c9 5c 22 88 ca 0e | 06 cb 5c 22 88 0e 0c 16 |...\"...|..\"....|
|00004bd0| 0d ce 0e 06 cf d0 0e 0d | 5c 22 5c 22 2a 87 22 20 |........|\"\"*." |
|00004be0| 5b 74 20 6e 69 6c 20 70 | 72 6f 63 65 73 73 2d 63 |[t nil p|rocess-c|
|00004bf0| 6f 6e 6e 65 63 74 69 6f | 6e 2d 74 79 70 65 20 69 |onnectio|n-type i|
|00004c00| 6e 68 69 62 69 74 2d 71 | 75 69 74 20 73 74 61 72 |nhibit-q|uit star|
|00004c10| 74 2d 70 72 6f 63 65 73 | 73 20 22 69 74 69 6d 65 |t-proces|s "itime|
|00004c20| 72 22 20 69 74 69 6d 65 | 72 2d 70 72 6f 63 65 73 |r" itime|r-proces|
|00004c30| 73 20 70 72 6f 63 65 73 | 73 2d 6b 69 6c 6c 2d 77 |s proces|s-kill-w|
|00004c40| 69 74 68 6f 75 74 2d 71 | 75 65 72 79 20 73 65 74 |ithout-q|uery set|
|00004c50| 2d 70 72 6f 63 65 73 73 | 2d 66 69 6c 74 65 72 20 |-process|-filter |
|00004c60| 69 74 69 6d 65 72 2d 70 | 72 6f 63 65 73 73 2d 66 |itimer-p|rocess-f|
|00004c70| 69 6c 74 65 72 20 73 65 | 74 2d 70 72 6f 63 65 73 |ilter se|t-proces|
|00004c80| 73 2d 73 65 6e 74 69 6e | 65 6c 20 69 74 69 6d 65 |s-sentin|el itime|
|00004c90| 72 2d 70 72 6f 63 65 73 | 73 2d 73 65 6e 74 69 6e |r-proces|s-sentin|
|00004ca0| 65 6c 20 69 74 69 6d 65 | 72 2d 73 68 6f 72 74 2d |el itime|r-short-|
|00004cb0| 69 6e 74 65 72 76 61 6c | 20 69 74 69 6d 65 72 2d |interval| itimer-|
|00004cc0| 6e 65 78 74 2d 77 61 6b | 65 75 70 20 70 72 6f 63 |next-wak|eup proc|
|00004cd0| 65 73 73 2d 73 65 6e 64 | 2d 73 74 72 69 6e 67 20 |ess-send|-string |
|00004ce0| 66 6f 72 6d 61 74 20 22 | 25 73 5c 6e 22 5d 20 35 |format "|%s\n"] 5|
|00004cf0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 74 |]).(defa|lias 'it|
|00004d00| 69 6d 65 72 2d 70 72 6f | 63 65 73 73 2d 77 61 6b |imer-pro|cess-wak|
|00004d10| 65 75 70 20 23 5b 6e 69 | 6c 20 22 c0 09 21 88 c2 |eup #[ni|l "..!..|
|00004d20| 20 87 22 20 5b 69 6e 74 | 65 72 72 75 70 74 2d 70 | ." [int|errupt-p|
|00004d30| 72 6f 63 65 73 73 20 69 | 74 69 6d 65 72 2d 70 72 |rocess i|timer-pr|
|00004d40| 6f 63 65 73 73 20 61 63 | 63 65 70 74 2d 70 72 6f |ocess ac|cept-pro|
|00004d50| 63 65 73 73 2d 6f 75 74 | 70 75 74 5d 20 32 5d 29 |cess-out|put] 2])|
|00004d60| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 74 69 6d |.(defali|as 'itim|
|00004d70| 65 72 2d 74 69 6d 65 72 | 2d 73 74 61 72 74 20 23 |er-timer|-start #|
|00004d80| 5b 6e 69 6c 20 22 c0 19 | 5c 6e 13 c4 20 15 c6 5c |[nil "..|\n.. ..\|
|00004d90| 6e c7 c8 89 24 89 16 09 | 29 87 22 20 5b 74 20 69 |n...$...|)." [t i|
|00004da0| 6e 68 69 62 69 74 2d 71 | 75 69 74 20 69 74 69 6d |nhibit-q|uit itim|
|00004db0| 65 72 2d 73 68 6f 72 74 | 2d 69 6e 74 65 72 76 61 |er-short|-interva|
|00004dc0| 6c 20 69 74 69 6d 65 72 | 2d 6e 65 78 74 2d 77 61 |l itimer|-next-wa|
|00004dd0| 6b 65 75 70 20 63 75 72 | 72 65 6e 74 2d 74 69 6d |keup cur|rent-tim|
|00004de0| 65 20 69 74 69 6d 65 72 | 2d 74 69 6d 65 72 2d 6c |e itimer|-timer-l|
|00004df0| 61 73 74 2d 77 61 6b 65 | 75 70 20 61 64 64 2d 74 |ast-wake|up add-t|
|00004e00| 69 6d 65 6f 75 74 20 69 | 74 69 6d 65 72 2d 74 69 |imeout i|timer-ti|
|00004e10| 6d 65 72 2d 64 72 69 76 | 65 72 20 6e 69 6c 20 69 |mer-driv|er nil i|
|00004e20| 74 69 6d 65 72 2d 74 69 | 6d 65 72 5d 20 35 5d 29 |timer-ti|mer] 5])|
|00004e30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 74 69 6d |.(defali|as 'itim|
|00004e40| 65 72 2d 74 69 6d 65 72 | 2d 77 61 6b 65 75 70 20 |er-timer|-wakeup |
|00004e50| 23 5b 6e 69 6c 20 22 c0 | 19 c2 c3 21 ab 86 c3 0c |#[nil ".|...!....|
|00004e60| 21 88 aa 89 c2 c5 21 ab | 84 c5 0c 21 88 c6 0e 07 |!.....!.|...!....|
|00004e70| c8 c9 ca 24 89 14 29 87 | 22 20 5b 74 20 69 6e 68 |...$..).|" [t inh|
|00004e80| 69 62 69 74 2d 71 75 69 | 74 20 66 62 6f 75 6e 64 |ibit-qui|t fbound|
|00004e90| 70 20 64 69 73 61 62 6c | 65 2d 74 69 6d 65 6f 75 |p disabl|e-timeou|
|00004ea0| 74 20 69 74 69 6d 65 72 | 2d 74 69 6d 65 72 20 63 |t itimer|-timer c|
|00004eb0| 61 6e 63 65 6c 2d 74 69 | 6d 65 72 20 61 64 64 2d |ancel-ti|mer add-|
|00004ec0| 74 69 6d 65 6f 75 74 20 | 69 74 69 6d 65 72 2d 73 |timeout |itimer-s|
|00004ed0| 68 6f 72 74 2d 69 6e 74 | 65 72 76 61 6c 20 69 74 |hort-int|erval it|
|00004ee0| 69 6d 65 72 2d 74 69 6d | 65 72 2d 64 72 69 76 65 |imer-tim|er-drive|
|00004ef0| 72 20 6e 69 6c 20 35 5d | 20 35 5d 29 0a 28 64 65 |r nil 5]| 5]).(de|
|00004f00| 66 61 6c 69 61 73 20 27 | 69 74 69 6d 65 72 2d 74 |falias '|itimer-t|
|00004f10| 69 6d 65 2d 64 69 66 66 | 65 72 65 6e 63 65 20 23 |ime-diff|erence #|
|00004f20| 5b 28 74 31 20 74 32 29 | 20 22 c0 89 89 89 19 1a |[(t1 t2)| "......|
|00004f30| 1b 1c c5 0e 06 38 c5 0e | 07 38 5a 89 14 c8 57 ab |.....8..|.8Z...W.|
|00004f40| 88 c9 11 0c ca 5c 5c 14 | aa 82 c8 11 0e 06 41 40 |.....\\.|......A@|
|00004f50| 0e 07 41 40 5a 09 5a 89 | 13 c8 57 ab 88 c9 11 0b |..A@Z.Z.|..W.....|
|00004f60| cb 5c 5c 13 aa 82 c8 11 | 0e 06 40 0e 07 40 5a 09 |.\\.....|..@..@Z.|
|00004f70| 5a 89 12 cb 5f 0b 5c 5c | 0c cc cd 21 ab 83 ce aa |Z..._.\\|...!....|
|00004f80| 81 ca a5 5c 5c 2c 87 22 | 20 5b 6e 69 6c 20 63 61 |...\\,."| [nil ca|
|00004f90| 72 72 79 20 36 35 35 33 | 36 2d 73 65 63 73 20 73 |rry 6553|6-secs s|
|00004fa0| 65 63 73 20 75 73 65 63 | 73 20 32 20 74 31 20 74 |ecs usec|s 2 t1 t|
|00004fb0| 32 20 30 20 31 20 31 30 | 30 30 30 30 30 20 36 35 |2 0 1 10|00000 65|
|00004fc0| 35 33 36 20 66 65 61 74 | 75 72 65 70 20 6c 69 73 |536 feat|urep lis|
|00004fd0| 70 2d 66 6c 6f 61 74 2d | 74 79 70 65 20 31 30 30 |p-float-|type 100|
|00004fe0| 30 30 30 30 2e 30 5d 20 | 35 5d 29 0a 28 64 65 66 |0000.0] |5]).(def|
|00004ff0| 61 6c 69 61 73 20 27 69 | 74 69 6d 65 72 2d 74 69 |alias 'i|timer-ti|
|00005000| 6d 65 72 2d 64 72 69 76 | 65 72 20 23 5b 28 26 72 |mer-driv|er #[(&r|
|00005010| 65 73 74 20 69 67 6e 6f | 72 65 64 29 20 22 08 3f |est igno|red) ".?|
|00005020| ad ae c1 1a c1 18 c3 20 | 1c c5 0c 0e 06 5c 22 1e |....... |.....\".|
|00005030| 07 c8 1e 09 0c 16 06 ca | 0e 07 21 16 09 cb 0e 0c |........|..!.....|
|00005040| 21 88 0e 09 16 0d ce 0e | 09 cf c8 d0 24 89 16 0c |!.......|....$...|
|00005050| 2d 87 22 20 5b 69 74 69 | 6d 65 72 2d 69 6e 73 69 |-." [iti|mer-insi|
|00005060| 64 65 2d 64 72 69 76 65 | 72 20 74 20 69 6e 68 69 |de-drive|r t inhi|
|00005070| 62 69 74 2d 71 75 69 74 | 20 63 75 72 72 65 6e 74 |bit-quit| current|
|00005080| 2d 74 69 6d 65 20 6e 6f | 77 20 69 74 69 6d 65 72 |-time no|w itimer|
|00005090| 2d 74 69 6d 65 2d 64 69 | 66 66 65 72 65 6e 63 65 |-time-di|fference|
|000050a0| 20 69 74 69 6d 65 72 2d | 74 69 6d 65 72 2d 6c 61 | itimer-|timer-la|
|000050b0| 73 74 2d 77 61 6b 65 75 | 70 20 65 6c 61 70 73 65 |st-wakeu|p elapse|
|000050c0| 64 20 6e 69 6c 20 73 6c | 65 65 70 20 69 74 69 6d |d nil sl|eep itim|
|000050d0| 65 72 2d 72 75 6e 2d 65 | 78 70 69 72 65 64 2d 74 |er-run-e|xpired-t|
|000050e0| 69 6d 65 72 73 20 64 69 | 73 61 62 6c 65 2d 74 69 |imers di|sable-ti|
|000050f0| 6d 65 6f 75 74 20 69 74 | 69 6d 65 72 2d 74 69 6d |meout it|imer-tim|
|00005100| 65 72 20 69 74 69 6d 65 | 72 2d 6e 65 78 74 2d 77 |er itime|r-next-w|
|00005110| 61 6b 65 75 70 20 61 64 | 64 2d 74 69 6d 65 6f 75 |akeup ad|d-timeou|
|00005120| 74 20 69 74 69 6d 65 72 | 2d 74 69 6d 65 72 2d 64 |t itimer|-timer-d|
|00005130| 72 69 76 65 72 20 35 5d | 20 35 5d 29 0a 28 64 65 |river 5]| 5]).(de|
|00005140| 66 61 6c 69 61 73 20 27 | 69 74 69 6d 65 72 2d 64 |falias '|itimer-d|
|00005150| 72 69 76 65 72 2d 73 74 | 61 72 74 20 23 5b 6e 69 |river-st|art #[ni|
|00005160| 6c 20 22 c0 c1 21 ab 83 | c2 20 87 c3 20 87 22 20 |l "..!..|. .. ." |
|00005170| 5b 66 62 6f 75 6e 64 70 | 20 61 64 64 2d 74 69 6d |[fboundp| add-tim|
|00005180| 65 6f 75 74 20 69 74 69 | 6d 65 72 2d 74 69 6d 65 |eout iti|mer-time|
|00005190| 72 2d 73 74 61 72 74 20 | 69 74 69 6d 65 72 2d 70 |r-start |itimer-p|
|000051a0| 72 6f 63 65 73 73 2d 73 | 74 61 72 74 5d 20 32 5d |rocess-s|tart] 2]|
|000051b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 74 69 |).(defal|ias 'iti|
|000051c0| 6d 65 72 2d 64 72 69 76 | 65 72 2d 77 61 6b 65 75 |mer-driv|er-wakeu|
|000051d0| 70 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 ab 83 c2 20 |p #[nil |"..!... |
|000051e0| 87 c3 20 87 22 20 5b 66 | 62 6f 75 6e 64 70 20 61 |.. ." [f|boundp a|
|000051f0| 64 64 2d 74 69 6d 65 6f | 75 74 20 69 74 69 6d 65 |dd-timeo|ut itime|
|00005200| 72 2d 74 69 6d 65 72 2d | 77 61 6b 65 75 70 20 69 |r-timer-|wakeup i|
|00005210| 74 69 6d 65 72 2d 70 72 | 6f 63 65 73 73 2d 77 61 |timer-pr|ocess-wa|
|00005220| 6b 65 75 70 5d 20 32 5d | 29 0a |keup] 2]|). |
+--------+-------------------------+-------------------------+--------+--------+
